Ввести 7 чисел и посчитать количество чисел больше 0…

Question

Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.

Answer 1

53

cacadu

28 февраля 2023

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.

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

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: