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à kemms (theo tiêu chuẩn >8 điểm: Giỏi, từ 6.5 điểm đến 7.9 điểm: Khá, bé hơn bằng 5 là trung bình
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à kemms (theo tiêu chuẩn >8 điểm: Giỏi, từ 6.5 điểm đến 7.9 điểm: Khá, bé hơn bằng 5 là trung bình
program btsydn;
uses crt;
var A: array[1..100] of integer;
i, n, g, k, tb: integer;
begin
clrscr;
write(‘Si so lop ban: ‘); readln(n);
g:=0; k:=0; tb:=0;
for i:=1 to n do
begin
write(‘Nhap diem trung binh cua ban thu ‘, i, ‘: ‘); readln(A[i]);
if (A[i]>10) or (A[i[<0) then write(‘Nhap diem sai’) esle
begin
write(‘Diem trung binh mon cua ban ‘, i, : ‘, A[i]:4:1);
if A[i]>=8 then g:=g+1; else
if (A[i]>=6.5) and (A[i]<=7.9) then k:=k+1 else
tb:=tb+1;
end;
end;
writeln(‘So ban hsg: ‘, g);
writeln(‘So ban hsk: ‘, k);
writeln(‘So ban hstb: ‘, tb);
readln
end.