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

Question

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

Гость

Ответ(ы) на вопрос:

Гость

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.

Accepted Answer

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 чисел.