Const n=20;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(1001)-500;
 write(a[i]:5);
 end;
writeln;
writeln('Положительные');
for i:=1 to n do
 if a[i]>0 then write(a[i]:5);
writeln;
writeln('Отрицательные');
for i:=1 to n do
 if a[i]<0 then write(a[i]:5);
writeln;
end.

Пример (для n=10):
Исходный массив:
    6  -51  324 -174  -27  224  276 -437 -144 -490
Положительные
    6  324  224  276
Отрицательные
  -51 -174  -27 -437 -144 -490