Uses Crt;
Var hs:array[1..1000] of real;
i,n:integer; DTB:real;
Gioi,Yeu,TB,Kha,Kem:integer;
Begin
Clrscr;
Writeln('Nhap so ban hoc sinh trong lop vao: '); Readln(n);

For i:= 1 to n do
Begin
Writeln;
Write('Diem TB cua hs[',i,'] la: '); Readln(hs[i]);
End;
Writeln;
For i:= 1 to n do
Begin
If hs[i]>=8.0 then Gioi:=Gioi+1;
If (hs[i] < 5) and (hs[i]>=3.5) then Yeu:=Yeu+1;
If (hs[i]<8.0) and (hs[i]>=6.5) then Kha:=Kha+1;
If (hs[i]>=5) and (hs[i]<6.5) then TB:=TB+1;
If hs[i]<3.5 then Kem:= Kem+1;
End;
Writeln(' So ban dat HSG la: ',Gioi,'. Voi ty le: ',Gioi/n*100:0:0,'%');
Writeln(' So ban dat HSK la: ',Kha,'. Voi ty le: ',Kha/n*100:0:0,'%');
Writeln(' So ban dat HSTB la: ',TB,'. Voi ty le: ',TB/n*100:0:0,'%');
Writeln(' So ban dat HSY la: ',Yeu,'. Voi ty le: ',Yeu/n*100:0:0,'%');
Writeln(' So ban dat HSK la: ',Kem,'. Voi ty le: ',Kem/n*100:0:0,'%');
Readln
End.

Program Phan_loai;

uses crt;

Var i, n, gioi, kha, trung binh, yeu : integer;

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

Begin

clrscr;

write('Nhap so HS trong lop, n= ');

readln(n);

writeln('Nhap diem :');

For i:=1 to n do

Begin

write(i,' . ');

readln(a[i]);

End;

G:=0; Kh:= 0; TB:= 0; K:= 0;

for i:=1 to n do

Begin

if a[i] >= 8.0 then G:= G + 1;

if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;

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

end;

writeln(' Ket qua hoc tap: ');

writeln(G, ' ban hoc gioi ');

writeln(Kh, ' ban hoc kha ');

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

writeln(K, ' ban hoc kem ');

Readln;

End.