Массив состоит из 20 целых положительных и отрицательных чисел, каждое из которых находится в пределах от 2 до 12. Вывести на экран сначала отрицательные, а затем положительные числа. Определите, модуль суммы каких чисел больше - положительных или отрицательных.

program summ;

var a: array [1 ... 20] of integer;

znak, sn, sp: integer;

begin

randomize;

sn: = 0; sp: = 0;

for i: integer: = 1 to 20 do

begin

znak: = random (2) + 1;

a[i]: = random (11) + 2;

if znak = 1 then a[i]: = - a[i];

write (a[i] : 4)

end;

writeln ();

for i: integer: = 1 to 20 do

begin

if a[i] < 0 then

begin

write (a[i] : 4);

sn: = sn + a[i]

end

end;

writeln ();

for i:integer : = 1 to 20 do

begin

if a[i] > 0 then

begin

write (a[i] : 4);

sp: = sp + a[i]

end

end;

writeln ();

writeln (' Сумма положительных чисел: ', sp);

writeln (' Сумма отрицательных чисел: ', sn);

if abs (sn) > sp then write (' Модуль суммы отрицательных чисел больше.');

if abs (sn) < sp then write (' Модуль суммы положительных чисел больше.');

if abs (sn) = sp then write (' Модули сумм равны.')

end.