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

Question

Исаакин

13 ноября, 09:23

+5

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