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

Question

Информатика

Венцеслав

5 октября, 13:55

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

+3

Ответы (1)

Знаете ответ на вопрос?

Капитолина · Answer 1

var

a, k, s:integer;

begin

repeat

write (' = > ') ; readln (a) ;

if a<0 then k:=k+1 else s:=s+a;

until a=0;

writeln ('Summa: ', s) ;

writeln ('Kol-vo: ', k) ;

readln;

end.