Viết chương trình pascal sử dụng biến mảng để nhập điểm trung bình cả năm của các bạn trong lớp từ bàn phím.số các bạn trong lớp cũng được nhập vào từ bàn phím sau đó in ra màn hình số bạn đạt kết quả học tập giỏi, khá,trung bình, yếu
(Theo tiêu chuẩn:8.0 đạt loại giỏi
Từ 5.6 đến 7.9 đạt loại khá
Từ 5.0 đến 6.4 đạt loại trung bình và dưới 5.0 loại yếu)
uses crt;
var a: array[1..100] of real;
i,n: integer;
begin
clrscr;
write (‘nhap so luong HS: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap diem trung binh HS thu ‘,i,’: ‘); readln (a[i]);
if a[i]>=8 then writeln (‘loai gioi’)
else if (a[i]<8) and (a[i]>=6.5) then writeln (‘loai kha’)
else if (a[i]<6.5) and (a[i]>=5.0) then writeln (‘loai trung binh’)
else writeln (‘loai yeu’);
writeln;
end;
readln;
end.