Версия для печати темы

uses crt;
const n=3;
type massiv = array[1..n] of integer;
var  X,Y:massiv;
      i:integer;
   Zx,Zy:massiv;

procedure vivod (M:massiv;c:integer);
var i:integer;
begin
For i := 1 To c Do write(M[i]:3);
end;

Procedure MyArray (M:massiv;z1:massiv;c:integer);
var i,j:integer;
begin
z1[1]:=0;j:=0;
for i:=1 to c do
begin
  if M[i]>0 then
   begin
    j:=j+1;
    z1[j]:=M[i];
  end
end;
end;

begin
clrscr;

writeln('X: ');
For i := 1 To n Do read(X[i]);
vivod(X,n);
MyArray(X,Zx,n);

writeln;
writeln('Y: ');
For i := 1 To n Do read(Y[i]);
vivod(Y,n);
MyArray(Y,Zy,n);

writeln;
for i:=1 to n do writeln ('Zx[', i,'] = ',Zx[i]);
writeln;
for i:=1 to n do writeln ('Zy[', i,'] = ',Zy[i]);

end.