Program trung_binh;
uses crt;
var A,B:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
write('Nhap so hoc sinh: '); readln(n);
for i:=1 to n do
begin
writeln('NHAP DIEM BAN THU ',i,': ');
write(' Toan: '); readln(A[i]);
write(' Tin: '); readln(B[i]);
end;
writeln('DIEM TRUNG BINH tung ban theo thu tu la: ');
for i:=1 to n do
writeln((A[i]+B[i])/2:0:1);
readln;
end.
