var i,n: integer;

tbvan, tbtoan: real;

diemtoan, diemvan: array[1..100] of real;

begin

write('Diem trung binh: ');

for i:=1 to n do

writeln(i,', ',(diemtoan[i]+diemvan[i])/2:3:1);

tbtoan:=0;

tbvan:=0;

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 mon Van: ',tbvan:3:2);

end.

var i,n:integer;

TbToan,TBVan:real;

DiemToan, DiemVan,A: array[1..100] of real;

begin

writeln('Nhap so hoc sinh: '); readln(n);

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/n:3:2);

writeln('Diem trung binh mon Van: ',Tbvan/n:3:2);

end.