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.
