Задание:
Вводите по очереди данные в росте N учащихся класса. Определить средний рост учащихся вклассе
Решение:
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.
Знаете другой ответ?