Uses crt; Var i, n: integer; TBToan, TBVan: real; DiemToan, DiemVan: array [1..100] of real; Begin clrscr; write('Nhap so cac ban hoc sinh trong lop, n =');readln(n); writeln('Nhap diem Toan: '); For i:=1 to N do begin write(i, '.');readln(DiemToan[i]); end; Writeln('Nhap diem Van: '); For i:=1 to n do begin write(i, '.');readln(DiemVan[i]); end; writeln('Diem trung binh moi hoc sinh: '); For i:=1 to n do Writeln(i,'.', (DiemToan[i]+DiemVan[i])/2:3:1); TBToan:=0; TBVan:=0; For i:=1 to n do Begin If (DiemToan[i]+DiemVan[i])/2 >= 8 then writeln(i,'. Diem trung binh = ',(DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Gioi') else if ((DiemToan[i]+DiemVan[i])/2 = 6.5) then writeln(i,'. Diem trung binh = ', (DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Kha') else if ((DiemToan[i]+DiemVan[i])/2 = 5) then writeln(i,'. Diem trung binh = ', (DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Tb') else writeln(i,'. Diem trung binh = ', (DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Yeu'); end; For i:=1 to n do Begin TBToan:=TBToan+DiemToan[i]; TBVan:=TBVan+DiemVan[i];end; TBToan:=TBToan/n; TBVan:=TBVan/n; Writeln('Diem trung binh mon Toan: ', TBToan:3:2); Writeln('Diem trung binh mon Van:', TBVan:3:2); readln; End. Lệnh này đang xếp loại HS Gioi -> KHa -> TB-> Yeu . XIn các bạn bổ sung lệnh => Xep loai Kem hộ mình ạ