Question

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

Answer 1

Отрицательные:
for i:=1 to n do
if a[i]<0 then s:=s+a[i];

Неотрицательные:
for i:=1 to n do
if a[i]>0 then s:=s+a[i];