program Phanloai;
Var i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do
Begin
write(i,’. ‘); readln(a[i]);
End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
writeln(‘Ket qua hoc tap:’);
writeln(Gioi,’ ban hoc gioi’);
writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’);
readln
End.

var i,n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;

begin
writeln ('Diem trung binh:');
for i:= 1 to n do
writeln (i,'.', (DiemToan[i] + DiemVan[i])/2:3:1);
TbToan:= 0; TbVan:= 0;
for i:= 1 to n do
begin TbToan:= TbToan + DiemToan[i];
TbVan:= TbVan + DiemVan[i]; end;
TbToan:= TbToan/n; TbVan:= TbVan/n;
writeln ('Diem trung binh mon Toan :', TbToan :3:2);
writeln ('Diem trung binh moin Van: ', TbVan :3:2);
end.