Program ololosh;

var

posledov:array [1..1000] of integer;

kolvo_otr, summ, i , n:integer;

begin

readln(n); {"вводится последовательность из n целых чисел."}

kolvo_otr:=0;

summ:=0;

for i:= 1 to n do

begin

write('введите число ');

readln(posledov[i]);

if posledov[i]>0 then

summ:=summ+posledov[i]

else

kolvo_otr:=kolvo_otr+1;

end;

writeln('отрицательных - ', kolvo_otr);

write('сумма положительных чисел - ', summ);

end.