Вводится последовательность ненулевых чисел; 0 - конец последовательности. Посчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

var a: array[1 ... 10000] of integer;

i, n: integer;

otr, s_pol: integer;

inp: integer;

begin

while inp 0 do begin

n : = n + 1;

readln (inp);

a[n] : = inp;

end;

for i : = 1 to n do if a[i] > 0 then s_pol : = s_pol + a[i] else if a[i] < 0 then otr : = otr + 1;

writeln ('Сумма положительных чисел равна ', s_pol);

writeln ('Количество отрицательных чисел равно ', otr);

end.