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

Question

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

Comments

что нужно сделать? сказать чему равно n или блок схему или программу, почему не пишешь этого?

---

составить программу

---

на каком языке

---

паскаль

---

щас напишу

Answer 1

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.