var n,i:integer;

TbToan,TBVan:real;

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

begin write('Nhap so hoc sinh: ');

readln(n);

for i:=1 to n do

begin

write('Nhap diem toan ban thu ',i,' : '); readln(DiemToan[i]);

write('Nhap diem van ban thu ',i,' : '); readln(DiemVan[i]);

Tbtoan:=Tbtoan+Diemtoan[i];

Tbvan:=Tbvan+Diemvan[i];

A[i]:=(Diemtoan[i]+Diemvan[i])/2;

end;

write('Diem trung binh moi hoc sinh la; ');

for i:=1 to n do write(A[i]:0:2,' ');

writeln;

writeln('Diem trung binh mon Toan: ',Tbtoan/n:3:2);

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

readln

end. 

uses crt;
var n,i: integer;
    toan,van: array[1..60] of real;
    tb_t, tb_v: real;
begin
clrscr;
    write('Nhap so hoc sinh: '); readln(n);
    for i:=1 to n do begin
        write('Nhap diem toan va van cua hoc sinh thu ',i,': ');
        readln(toan[i],van[i]);
        tb_t:=tb_t+toan[i];
        tb_v:=tb_v+van[i];
    end;
    writeln('Diem trung binh: ');
    for i:=1 to n do writeln('Hoc sinh thu ',i,': ',(toan[i]+van[i])/2:2:2);
    writeln();
    writeln('Diem trung binh toan: ',tb_t/n:2:2);
    writeln('Diem trung binh van: ',tb_v/n:2:2);
    readln
end.