uses crt;
var t,bth: real;
      i,n: integer;
      a: array[1..100] of real;
begin
clrscr;
       write('so tre em trong do tieu hoc o xa: ');
       readln(n);
       for i:=1 to n do
       begin
              write('chieu cao em thu ',i,': ');
              readln(a[i]);
      end;
      for i:=1 to n do
      t:=t+a[i];
      bth:=t/n;
      write('chieu cao trung binh cua cac be trong do tuoi tieu hoc trong xa la: ',bth:2:1);
readln
end.