Задание:
С клавиатуры вводится 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; end; writeln (k,s); End.
Знаете другой ответ?