Question

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

Answer 1

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

Answer 2

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