uses crt;
var n,i: integer;
    tb,p: real;
begin
clrscr;
    write('Nhap so hs: '); readln(n);
    for i:=1 to n do begin
        write('Nhap diem hs thu ',i,': '); readln(p);
        tb:=tb+p;
    end;
    write('Diem trung binh cua ',n,' hs la: ',(tb/n):2:2);
    readln
end.

uses crt;
var n,i:integer;
A:array[1..100] of integer;
s:real;
begin
clrscr;
write('Nhap n: '); readln(N);
s:=0;
for i:=1 to n do
begin
write('Nhap diem tong ket cua ban hoc sinh thu ',i,' :');
readln(A[i]);
s:=s+A[i];
end;
s:=s/n;
write('Diem trung binh cua ',n,' ban hoc sinh: ',s:0:2);
readln
end.