Массив состоит из 20 целых положительных и отрицательных чисел, каждое из

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] lt; 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] gt; 0 then
begin
write(a[i] : 4);
sp:= sp + a[i]
end
end;
writeln();
writeln( Сумма положительных чисел: , sp);
writeln( Сумма отрицательных чисел: , sn);

if абс(sn) gt; sp then write( Модуль суммы отрицательных чисел больше.);
if абс(sn) lt; sp then write( Модуль суммы положительных чисел больше.);
if абс(sn) = sp then write( Модули сумм одинаковы.)

end.