program ct;

uses crt;

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

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

begin clrscr;

   write('Nhap so hoc sinh: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap diem cho hoc sinh thu ',i,': '); readln(A[i]);

     end;

   for i:=1 to n do

     begin

       if A[i]>=8.0 then inc(g);

       if (A[i]>=6.5) and (A[i]<=7.9) then inc(k);

       if (A[i]>=5.0) and (A[i]<=6.4) then inc(tb);

       if A[i]<5 then inc(y);

     end;

   writeln('Co ',g,' ban hoc gioi');

   writeln('Co ',k,' ban hoc kha');

   writeln('Co ',tb,' ban hoc trung binh');

   writeln('Co ',y,' ban hoc yeu');

readln;

end.

Học tốt!

program ct;

uses crt;

var i,n,gioi,kha,trungbinh,yeu:integer;

A:array[1..100] of real;

begin

clrscr;

  write('nhap so hoc sinh:=');readln(n);

    for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  gioi:=0;  kha:=0;  trungbinh:=0;  yeu:=0;

    for i:=1 to n do

begin

  if A[i]>=8.0 then gioi:=gioi+1;

  if A[i]<5 then yeu:=yeu+1;

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

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

end;

  writeln('ket qua');

  writeln(gioi,' ban hoc gioi');

  writeln(kha,' ban hoc kha');

  writeln(trungbinh,' ban hoc trung binh');

  writeln(yeu,' bam hoc yeu');

readln

end.