Program Diem_trung_binh;
Uses Crt;
Var a : array [1..30] of real;
TB : real;
n,i : integer;
Begin
Clrscr;
Write ('Nhap luong mon hoc: ');
Read (n);
TB:=0;
For i :=1 to n do
Begin
Write ('Nhap diem trung binh cua mon hoc thu ',i,': ');
Read (a[i]);
TB:=TB+a[i];
End;
TB:=TB/n;
Writeln ('Diem trung binh cua ',n,' mon cua hoc sinh do là: ',TB:2:1);
End.