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

for i=1 to N dosumma=summa+rost [i]srednee=summa/N

var  n,i:integer;  x,sr:real;beginwrite('Сколько учеников: ');readln(n);for i:=1 to n do  begin  write('Введите рост ',i,'-го ученика: ');  readln(x);  sr:=sr+x;  end;sr:=sr/n;writeln('Средний рост: ',sr)end.