uses crt;

var a: array of integer;
    n, i: integer;
    
begin

WriteLn('Введите N');
ReadLn(n);

a := new integer[n];

randomize; //заполняем массив случайными значениями
for i:=0 to n-1 do
begin
a[i]:=random(100)-50;
Write(a[i]:5);
end;
Writeln;

for i:=0 to n-1 do //заменяем положительные элементы нулем
begin
if a[i]>0 then a[i]:=0;
Write (a[i]:5);
end;
writeln;
readln;
end.