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 điểm giỏi, khá, trung bình, kém. Giỏi: >_8đ Khá: 6.5-7.9đ Trung bìn

Program Phanloai;

Uses crt;

Var i, n, gioi, kha, trungbinh, kem: integer;

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

Begin 

clrscr;

writeln (‘Nhap so cac ban trong lop,n=’);

readln (n);

writeln (‘Nhap diem’);

For i:=1 to n do begin write (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 trungbinnh:=trungbinh+1

end;

Writeln (‘ket qu hoc tap:’);

Writeln (gioi,’ban hoc gioi’);

Writeln (kha,’ban hoc kha’);

Writeln (trungbinh,ban hoc trungbinh’);

Writeln (kem, ban hoc kem);

Readln;

End.