program VD1;
Var x: array [1..33] of real;
Var y: array [1..33] of real;
Var z: array [1..33] of real;
Var i : byte
T,V,A,m,n,p: real;
begin
For i:= 1 to 33 do
begin
Write (' Nhap diem mon Toan cua ban thu',i);
Readln (x[i]);
end;
For i:= 1 to 33 do
begin
Write (' Nhap diem mon Van cua ban thu',i);
Readln (y[i]);
end;
For i:= 1 to 33 do
begin
Write (' Nhap diem mon Anh cua ban thu',i);
Readln (z[i]);
end;
m:=0;
n:=0;
p:=0;
For i:=1 to 33 do
Begin
m:= m+ x[i];
n:= n+ y[i];
p:= p+ z[i]'
end;
T:= m / 33;
V:= n / 33;
A:= p / 33;
Writeln (' Diem trung binh mon Toan cua lop la: ', T);
Writeln (' Diem trung binh mon Van cua lop la: ', V);
Writeln (' Diem trung binh mon Anh cua lop la: ', A);
Readln;
End.
~tay tuii rời khỏi người rồi~
Nếu sai thì chat cho mk nha~