uses crt;

var i:integer;

      tong,toan,van,anh: array[1..33] of integer;

      tb: array [1..33] of real;

begin

clrscr;

writeln('Nhap diem 3 mon toan, van, anh cua 33 hoc sinh:');

for i:= 1 to 33 do

begin

tong[i]:=0;

writeln('Nhap diem cua hoc sinh thu ',i);

write('Toan: ');readln(toan[i]);

write('Van: ');readln(van[i]);

write('Anh: ');readln(anh[i]);

tong[i]:= toan[i] + van[i] + anh[i];

tb[i]:=tong[i]/3

end;

writeln('Diem trung binh 3 mon cua 33 hoc sinh la:');

for i:= 1 to 33 do writeln('Diem trung binh cua hoc sinh thu ',i,' la: ',tb[i]:0:2);

readln;

end.

program diemtb;

uses crt;

var DTB:array [1..33] of real;

      T,V,A,:array [1..33] of integer;

      i:integer;

begin clrscr;

   write('Nhap diem 3 mon Van, Toan, Anh moi HS: ');

   for i:=1 to 33 do

     begin

          writeln('Nhap diem cua HS thu ',i);

          write('Toan, Van, Anh: ');readln(T[i], V[i], A[i]);

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

     end;

   write('DTB[',i,']');readln(DTB[i]);

     for i:=1 to 33 do

   write('Diem TB 3 mon Van, Toan, Anh cua HS ',i,' la: 'DTB[i]:0:3);

readln;

end.

Học tốt!