Procedure MyArray (M:massiv;var z1:array of integer;c:integer;var p:integer);
var i:integer;
begin
P:=0;
for i:=1 to c do
begin
if M[i]>0 then
begin
z1[p]:=M[i];
p:=p+1;
end;
end
end;
--------
MyArray(X,Z,n,p1);
MyArray(Y,Z,n,p2);
Подправить процедуру |