Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, trung bình và kemms (theo tiêu chu

program btsydn;

uses crt;

  var A: array[1..100] of integer;

        i, n, g, k, tb: integer;

begin

       clrscr;

       write(‘Si so lop ban: ‘); readln(n);

       g:=0; k:=0; tb:=0;

       for i:=1 to n do

       begin

              write(‘Nhap diem trung binh cua ban thu ‘, i, ‘: ‘); readln(A[i]);

              if (A[i]>10) or (A[i[<0) then write(‘Nhap diem sai’) esle

              begin

                     write(‘Diem trung binh mon cua ban ‘, i, : ‘, A[i]:4:1);

                     if A[i]>=8 then g:=g+1; else

                             if (A[i]>=6.5) and (A[i]<=7.9) then k:=k+1 else

                                     tb:=tb+1;

               end;

         end;

         writeln(‘So ban hsg: ‘, g);

         writeln(‘So ban hsk: ‘, k);

         writeln(‘So ban hstb: ‘, tb);

         readln

end.