program PascalGuru;
 
var A,newA:array[1..100] of integer;
    n,i,j:integer;
 
begin
writeln ('Vvedite razmer massiva A~100:');  read (n);
for i:=1 to n do A[i]:=-100+random(201);
 
write ('Vot zadanyi massiv A: ');
for i:=1 to n do write (A[i],'  ');   writeln;
 
for i:=1 to n do
              if A[i]>0 then
              for j:=1 to n do
              if (i<>j) and (A[j]<0) and (abs(A[j])=A[i]) then begin A[i]:=0; A[j]:=0; end;
 
writeln;
write ('Vot ishodnyi massiv A: ');
for i:=1 to n do write (A[i],'  ');   writeln;
 
readln;
readln;
 
end.