Пусть задан массив из 40 элементов (случайные числа [-10;10]. Выведите на экран сначала положительные элементы массива, а затем отрицательные. В паскале напишите

program soppchm;

uses

crt;

var

a: array [1..40] of Integer;

i: integer;

begin

for i := 1 to 40 do

begin

a[i] := random(21) - 10;

writeln('a[', i, ']= ', a[i]);

end;

writeln('Положительные:');

for i := 1 to 40 do

if (a[i] >= 0) then

writeln('a[', i, ']= ', a[i]) ;

writeln('Отрицательные:');

for i := 1 to 40 do

if (a[i] < 0) then

writeln('a[', i, ']= ', a[i]) ;

readln;

end.

PascalABC.NET: