Паскаль, написать программу: Организовать с клавиатуры ввод N произвольных целых чисел. Определить количество отрицательных и сумму положительных.

Var

n, i, a, kotr, sumpol: longint;

begin

readln (n) ;

kotr : = 0;

sumpol : = 0;

for i : = 1 to n do begin

read (a) ;

if (a < 0) then

inc (kotr)

else

sumpol : = sumpol + a;

end;

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

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