Дан массив в котором есть положительные и отрицательные числа. найти отдельно сумму положительных чисел и сумму отрицательных чисел.

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

i,ms,ps:integer;

Begin

 {vvod massiva A}

 for i:= 1 to 100 do

   if a[i] > 0 then ps:=ps+a[i]

   else ms:=ms+a[i];

 writeln(ps,ms);

End.

var

a:array[1..100] of integer;

i,s,r:integer; 

begin

for i:=1 to 100 do read(a[i]);

for i:=1 to 100 do

begin

if a[i]<0 then r:=r+a[i] else s:=s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

Посчитает максимум 100 чисел.