С клавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных
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;<br> end; writeln(k,s); End.