viết chương trình nhập vào điểm Toán, Văn , Anh của N học sinh và tính điểm trung bình của từng học sinh

program diemtrungbinh;

uses crt;

var T,V,A,tb:array[1..100] of real;

      n,i:byte;

begin

     clrscr;

     write(‘Nhap so luong hoc sinh: ‘);   readln(n);

     for i:=1 to n do

          begin

               writeln(‘- Hoc sinh thu ‘,i,’:’);

               write(‘+ Diem toan: ‘);   readln(T[i]);

               write(‘+ Diem van: ‘);    readln(V[i]);

               write(‘+ Diem anh: ‘);    readln(A[i]);

               tb[i]:=(T[i]+V[i]+A[i])/3;

               writeln(‘Diem trung binh cua ban la: ‘,tb[i]:3:2);

               readln;

          end;

     readln;

end.