Uses crt;
Var I,n:integer;
TbToan,TbVan:real;
DiemToan,DiemVan:array[1..100] of real;
Begin
Writeln(‘Diem trung binh:’);
Write(‘Nhap so ban trong lop:’);readln(n);
For i:=1 to n do
Writeln(‘So diem cua ban thu ‘,I,’ , ‘,(DiemToan[i]+DiemVan[i])/2:3:1);
TbToan:=0;TbVan:=0;
For i:=1 to n do
Begin
Tbtoan:=TbToan+DiemToan[i];TbVan+DienVan[i];
End;
TbToan:=TbToan/n;
TbVan:=TbVan/n;
Writeln(‘Diem trong binh mon toan:’,TbToan:3:2);
Writeln(‘Diem trong binh mon van:’,TbVan:3:2);
Readln;
End.