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

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