Массив из 20 элементов. Числа от -500 до 500. В первой строке вывести только...

Question

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

Answer 1

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);<br>writeln;
end.

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

Comments

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

---

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