Массив из 20 элементов. Числа от -500 до 500. В первой строке вывести только положительные, в другой-отрицательные. Это информатика. Паскаль.
Заранее спс.

спс огромное чувак!!! Выручил

Пожалуйста. Не следует обращаться к незнакомому человеку "чувак".

const n=20;var a:array[1..n] of integer;i:integer;beginRandomize;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