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 kết quả học tập loại giỏi, khá, trung bình và kém( theo tiêu chuẩn >8 điểm: Giỏi, từ 6,5 điểm đến 7,9 điểm: Khá, từ 5 điểm đến 6,4 điểm: Trung bình và dưới 5 điểm : Kém)
program oken;
uses crt;
var a: array [1..100] of real;
i,n,dy,dtb,dk,dg:integer;
begin
clrscr;
write(‘Co bao nhieu ban can nhap diem: ‘); readln(N);
for i:=1 to n do
begin
write(‘nhap diem ban thu ‘,i,’: ‘);
readln(a[i]);
if a[i]<5 then
dy:=dy+1
else if a[i]<6.4 then
dtb:=dtb+1
else if a[i]<7.9 then
dk:=dk+1
else
dg:=dg+1;
end;
writeln(‘So ban hoc yeu: ‘,dy);
writeln(‘So ban hoc trung binh: ‘,dtb);
writeln(‘So ban hoc kha: ‘,dk);
writeln(‘so ban hoc gioi: ‘,dg);
readln;
end.
uses crt;
var i,n,kha,gioi,kem,tb:integer;
a : array [1..1000] of real;
begin
clrscr;
writeln(‘Nhap so hoc sinh cua lop:’);readln(n);
kha:=0;gioi:=0;kem:=0;tb:=0;
writeln(‘Nhap diem cua cac ban:’);
for i := 1 to n do
begin
write(‘Ban thu ‘,i,’: ‘);readln(a[i]);
if a[i] >= 8 then gioi := gioi + 1;
if (a[i] >= 6.5) and (a[i] < 8) then kha := kha + 1;
if (a[i] >= 5) and (a[i] < 6.5) then tb := tb + 1;
if a[i] < 5 then kem := kem + 1
end;
writeln;
writeln(‘So ban diem gioi la: ‘,gioi);
writeln(‘So ban diem kha la: ‘,kha);
writeln(‘So ban diem trung binh la: ‘,tb);
writeln(‘So ban diem kem la: ‘,kem);
readln;
end.