Определить и вывести на экран средний рост учеников класса с точность до сотых.Рост выводится в метрах . Кол-во учащихся в классе 15.
Заранее спасибо)
Ответы
Ответ дал:
0
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м.
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м.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
9 лет назад