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

Question

Информатика

Вестита

5 июня, 08:27

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

+3

Ответы (1)

Знаешь ответ?

Серж · Answer 1

Var i, sum, m, pr:real;

begin

i:=1; m:=-1;

writeln ('Вводите рост учеников, когда закончите введите 0.');

while (i0) do begin

readln (i);

sum:=sum+i;

m:=m+1;

end;

pr:=sum/m;

writeln ('Средний рост:', pr);

end.