пропишите программу в паскале

Question

Дано натуральное число n, действительные числа a1, ..an ..получить сумму положительных и отрицательных членов последовательности a1, ..an

Анастасия Дудина · Accepted Answer

Просто все просуммируй. Это, правда, будет сумма положительных, отрицательных и нулей, но нули сумму не изменят. 
А если автор задания хотел получить две суммЫ, то пусть сначала выучит русский язык...

Алексей Громов · Answer

Согласен с крабом: сначала учи язык "русский", и только потом язык "pascal"

Einherjar Russland · Answer

for i := 0 to size-1 do if (a[ i ] < 0) then s1 := s1 + a[ i ] else s2 := s2 + a[ i ];