uses crt;
var a:array[1..100] of integer; n,i,gioi,kha,TB,kem:integer;
begin
 clrscr;
 write('Nhap so luong HS: '); readln(n);
 gioi:=0;kha:=0;TB:=0;kem:=0;
 for i:=1 to n do 
  begin
   write('Diem hoc sinh so ',i,': '); readln(a[i]);
  end;
 for i:=1 to n do
  begin
   case a[i] of
    8..10:gioi:=gioi+1;
    6..7:kha:=kha+1;
    5:TB:=TB+1;
    0..4:kem:=kem+1;
   end;
  end;
 writeln('Gioi: ',gioi);
 writeln('Kha: ',kha);
 writeln('Trung binh: ',TB);
 write('Kem: ',kem);
 readln;
end.

Program diemtin;

uses crt;

Var i,n: integer;

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

Begin

Writeln ('Nhap so hoc sinh cua lop: '); Readln(n);

For i:= 1 to n do begin writeln('Diem Tin cua hoc sinh thu',i);Readln(Diemtin[i]); end;

Readln

end.

CHÚC BẠN HỌC TỐT