Вопрос от посетителя
Дан массив в котором есть положительные и отрицательные числа. Найти отдельно сумму положительных чисел и сумму отрицательных чисел.
Отвечает Илюха:
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 чисел.