Const nmax=30; mmax=15;
Var hoten: array [1..nmax] of string[45] ;
tb : array [1..nmax] of real ; n,m,i,j,dem : byte; tg,d : real; xl : string[8] ;
Begin write(‘nhap so hs n= ‘);readln(n); write(‘nhap so mon m= ‘);readln(m);
for i:=1 to n do
begin write(‘nhap hoten hs ‘ , I , ‘la= ‘);readln(hoten[i]); tg:=0;
for j:=1 to m do
begin write(‘nhap diem mon ‘ , j , ‘la= ‘);readln(d); tg:=tg + d;
end; tb[i]:=tg/m;
end; dem:=0;
for i:= 1 to n do
begin write(hoten[i]:50,tb[i]:10:2);
if tb[i]