Осуществить ввод целых чисел

Question

Осуществить ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчитать их сумму и среднее арифметическое введенныхположительных чисел. Использовать оператор repeat.

Answer 1

91

vipmaestro

15 апреля 2023

program z8_1; uses crt; vari: shortint; k,n: byte; s: integer; sa: real; beginclrscr; i: =1; repeatread (i); if i>0 then begink: =k+1; s: =s+i; end; until i=0; sa: =s/k; write ('Количество чисел: ',k,' Сумма чисел: ',s,'Среднее арифметическое: ',sa: 4:2); readkeyend.

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

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

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

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

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