Вводите по очереди данные в росте N учащихся класса

Question

Вводите по очереди данные в росте N учащихся класса. Определить средний рост учащихся вклассе

Answer 1

36

limon32

19 февраля 2023

Var i,sum,m,pr: real; begin i: =1; m: =-1; writeln ('Вводите рост учеников, когда закончите введите 0.'); while (i<>0) do begin readln (i); sum: =sum+i; m: =m+1; end; pr: =sum/m; writeln ('Средний рост: ',pr); end.

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

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

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

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

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