Задание:
Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.
Решение:
var c, summ: real; count, i: integer; begin count: =0; summ: =0; for i: =1 to 7 do begin write ('Введите число '); readln (c); if c > 0 then count: =count+1 else summ: =summ+c; end; writeln ('Количество числел больших 0 равно ', count); writeln ('Сумма чисел меньших либо равных 0 равна ', summ); end.
Знаете другой ответ?