Question

Viết CT nhập hotên , điểm các môn của n học sinh (n<=30, số môn học <=15), và sau đó viết ra danh sách dạng họtên  tbhk xloai, cuối cùng viết tỷ lệ % học sinh khá giỏi .</strong>

Answer 1

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]