Question

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

Answer 1

var x,s,n:integer;

BEGIN

  repeat

     read(x);

     if x<0 then n:= n +1;

     if x >0 then s:=s+x;

  until x=0;

  writeln(n,s);

END.