Определить и вывести ** экран средний рост учеников класса с точность до сотых.Рост...

Question

Определить и вывести на экран средний рост учеников класса с точность до сотых.Рост выводится в метрах . Кол-во учащихся в классе 15.
Заранее спасибо)

Answer 1

Var
  i:integer;
  s,r:real;
begin
  s:=0;
  Writeln('Введите рост 15 учеников в метрах');
  for i:=1 to 15 do begin Read(r); s:=s+r end;
  Writeln('Средний рост учеников равен ',s/15:0:2,'м.')
end.

Пример работы программы
Введите рост 15 учеников в метрах
1.56 1.63 1.60 1.66 1.62 1.60 1.54 1.66 1.60 1.55 1.60 1.66 1.61 1.67 1.69
Средний рост учеников равен 1.62м.