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

Сегодня примерно в 18:48 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

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

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

Вводите по очереди данные в росте 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.