С клавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных

Question

Варюха

27 января, 03:41

+4

Ответы (1)

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

Викуша · Answer 1

var n, i, s, k:integer;

Begin

for i:=1 to 7 do Begin

read (n) ;

if n>0 then k:=k+1;

if n<0 then s:=s+n;

end;

writeln (k, s) ;

End.