uses crt;
var
a:array[1..50] of integer;
i,n,tong:integer;
begin
write('So hoc sinh trong lop: ');readln(n);
for i:=1 to n do
begin
write('Diem kiem tra cua ban thu ',i,' la: ');readln(a[i]);
tong:=tong+a[i]
end;
b:=tong/n
write('Diem trung binh tin hoc cua ca lop la: ',b:2:1);
readln;
end.
CT này mình chưa test nên có thể có 1 số loại nhỏ