Программа 7.3

PROGRAM LR_7_3;

Const n=200;

Type mas=array[1..n] of real;

Var i,nr,mr,k: integer;

x,y,z: mas;

{Начало подпрограммы-процедуры}

PROCEDURE ST (VAR A,C:MAS; N,L: INTEGER;

VAR K: INTEGER);

BEGIN

K:=L;

FOR I:=1 TO N DO

IF A[I]>0 THEN

BEGIN

K:=K+1;

C[K]:=A[I]

END

END;

{Конец подпрограммы-процедуры}

Begin

writeln(‘введите значения nr и mr’);

readln(nr,mr);

writeln(‘введите элементы массива x’);

for i:=1 to nr do readln(x[i]);

Writeln(‘Введите элементы массива Y’);

For i:=1 to mr do readln(y[i]);

ST(X,Z,NR,0,K);

ST(Y,Z,MR,K,K);

Writeln(‘Результирующий массив’);

For i:=1 to k do write(z[i]:8:2); writeln(‘’)

End.

Рис. 7.2. Блок-схемы программы и процедуры.