Pascal. Найти сумму отрицательных и сумму положительных элементов линейного массива.

[badname47]

Нужно написать программу:
Найти сумму отрицательных и сумму положительных элементов линейного массива.

[Кольша]

ну а в чем проблема делайте массив и две переменных
запускайте цикл пробегающий по массиву во время цикла проверяйте какое!

var
m:array [1..20] of integer;
i,p,o:integer;
begin
////заполняете маасив

for i:=1 to 20 do
if m[i]>0 then
p:=p+m[i] else o:=o+m[i];
showmessage('Сумма:'+'Положительных: '+inttostr(p)+#13#10+'Отрицателных:'+inttostr(o));
end;