uses crt;

var ban,i:integer;

tb,t:real;

van,toan:array[1..100] of byte;

begin

clrscr;

t:=0;

repeat

begin

write('nhap so ban hoc: ');readln(ban);

for i:=1 to ban do

begin

write('nhap diem mon van cua ban ',i,': ');readln(van[i]);

write('nhap diem mon toan cua ban ',i,': ');readln(toan[i]);

tb:=(van[i]+toan[i])/2;

writeln('diem trung binh cua ban ',i,' la: ',tb:1:2);

t:=t+tb;

end;

end;

until ban>0;

writeln('diem trung binh cua ca lop la: ', (t/ban):1:2);

readln;

end.

Program baitap;

Uses crt;

Var A,B:array[1..100] of real;

      i,n:integer;

      S,T:real;

Begin

Clrscr;

S:=0; T:=0;

Write('So luong cac ban trong lop:'); Readln(n);

For i:=1 to n do

     Write('Nhap diem van va toan cua bạn thu ',i);

     Readln(A[i],B[i]);

     S:=(A[i]+B[i])/2;

     T:=T+S;

     Writeln('Diem trung binh cua ban thu ',i,' la:',S);

     End;

Writeln('Diem trung binh cua ca lop:' T/n:3:2);

Readln

End.