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à kém( theo tiêu chuẩn >8 điểm: Giỏi, từ 6,5 điểm đến 7,9 điểm: Khá, từ 5 điểm đến 6,4 điểm: Trung bình và dưới 5 điểm : Kém)

uses crt;

var i,n,kha,gioi,kem,tb:integer;

      a : array [1..1000] of real;

begin

clrscr;

writeln('Nhap so hoc sinh cua lop:');readln(n);

kha:=0;gioi:=0;kem:=0;tb:=0;

writeln('Nhap diem cua cac ban:');

for i := 1 to n do

     begin

     write('Ban thu ',i,': ');readln(a[i]);

     if a[i] >= 8 then gioi := gioi + 1;

     if (a[i] >= 6.5) and (a[i] < 8) then kha := kha + 1;

     if (a[i] >= 5) and (a[i] < 6.5) then tb := tb + 1;

     if a[i] < 5 then kem := kem + 1

     end;

writeln;

writeln('So ban diem gioi la: ',gioi);

writeln('So ban diem kha la: ',kha);

writeln('So ban diem trung binh la: ',tb);

writeln('So ban diem kem la: ',kem);

readln;

end.

program oken;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.