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

Question

Евминия

16 ноября, 01:06

+2

Ответы (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.