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

Question

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

Answer 1

81

caliostro81

01 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить