Question

Пусть а[1], ..., a[n] - целые числа. Требуется найти сумму отрицательных и сумму неотрицательных элементов массива.
pascal

Answer 1

const n=5; var a:array[1..n] of longint;i,max,min:integer;beginmax:=0;min:=0;writeln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do read(a[i]);for i:=1 to n do beginif a[i]>0 then max:=max+a[i];if a[i]<0 then min:=min+a[i];end;writeln('сумма положительных чисел = ',max);writeln('сумма отрицательных чисел = ',min);end.