uses crt;

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

i, n, b1, b2, b3, b4, b5 : byte;

begin

clrscr;

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

b1 := 0; b2 := 0; b3 := 0; b4 := 0; b5 := 0;

for i := 1 to n do

begin

write('Nhap diem hoc sinh thu ', i ,' : ');

readln(a[i]);

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

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

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

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

if a[i] < 3.5 then b5 := b5 + 1;

end;

writeln('Co ', b1,' hoc sinh gioi');

writeln('Co ', b2,' hoc sinh kha');

writeln('Co ', b3 ,' hoc sinh trung binh');

writeln('Co ', b4 ,' hoc sinh yeu');

writeln('Co ', b5,' hoc sinh kem');

readln

end.

program Oken;

uses crt;

Var i, n,Gioi,Kha,Trungbinh,Kem:integer;

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

begin

clrscr;

write('Nhap so ban can nhap diem mon tin: '); readln(n);

writeln('Nhap diem cac ban');

for i:=1 to n do

begin

write('Diem ban thu ',i,': ');

readln(a[i]);

end;

Gioi:=0; Kha:= 0; Trungbinh:= 0; Kem:= 0;

for i:=1 to n do

begin if (a[i] >= 8.0) then Gioi:= Gioi + 1;

if (a[i]<5.0) then Kem:=Kem+1;

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

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

end;

writeln(' Ket qua hoc tap: ');

writeln(Gioi, ' ban hoc gioi ');

writeln(Kha, ' ban hoc kha ');

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

writeln(Kem, ' ban hoc kem ');

readln;

End.