uses crt;
var n,i,tbt,tbv: integer;
    a,b: array[1..100] of integer;
    c: array[1..100] of real;
begin
clrscr;
    write('Nhap so hoc sinh: '); readln(n);
    tbt:=0; tbv:=0;
    for i:=1 to n do begin
        write('Diem toan cua hoc sinh thu ',i,': '); readln(a[i]);
        write('Diem van cua hoc sinh thu ',i,': '); readln(b[i]);
        tbt:=tbt+a[i];
        tbv:=tbv+b[i];
        c[i]:=c[i]+a[i]+b[i];
    end;
    write('Diem trung binh cua tung ban la: ');
    for i:=1 to n do write((c[i]/2):2:2,' ');
    writeln;
    writeln('Diem trung binh toan la: ',(tbt/n):2:2);
    writeln('Diem trung binh van la: ',(tbv/n):2:2);
    readln
end.

#include <bits/stdc++.h>

using namespace std;
int n;
double, t[100005], v[100005] toan, van, tb;
int main()
{
 ios::sync_with_stdio(0);
 cin.tie(0); cout.tie(0);
 cin >> n;
 for (int i = 1; i <= n; ++i)
  cin >> t[i] >> v[i];
 for (int i = 1; i <= n; ++i)
 {

  toan += t[i];

  van += v[i];

  tb = (t[i] + v[i]) / 2;

  cout << tb << endl;

 }

 cout << "Diem tong ket trung binh toan la " << toan / n << endl;

 cout << "Diem tong ket trung binh van la " << van / n << endl;
 return 0;

}