Viết chương trình nhập điểm cho n môn học của mình Câu a:đứa điểm của n môn học ra màn hình Câu b:tính điểm trung bình các môn học và đưa kết quả ra màn hình (n và điểm các môn học được nhập từ màn hình)

program ct;

uses crt;

var Diem:array[1..50] of real;

      i,n:integer;

      Tb:real;

begin clrscr;

   write('Nhap so mon hoc: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap diem mon thu ',i,': '); readln(Diem[i]);

     end;

   writeln('Diem cua ',n,' mon hoc la: ');

   for i:=1 to n do

     writeln(Diem[i]:3);

     Tb:=0;

   for i:=1 to n do

     Tb:=(Tb+Diem[i])/n;

   writeln('Diem trung binh ',n,' mon hoc la: ',Tb:4:2);

readln;

end.

Học tốt!