2. uses crt;
var A:array[1..467] of real;
i,dem:integer;
begin
for i:=1 to 467 do
begin
write('Nhap diem trung binh mon Tin 11 HKI cua ban thu ',i,': ');
readln(A[i]);
end;
for i:=1 to 467 do if A[i]>7 then inc(dem);
write('So hoc sinh khoi 11 co diem trung binh mon Tin HKI >7 la: ',dem);
readln
end.
Điểm khó khăn: Số lượng học sinh của khối 11 quá nhiều (467 học sinh) do đó chương trình này phải nhập thủ công điểm trung bình môn Tin HKI của khối 11 của 467 học sinh, rất tốn thời gian, dễ dẫn đến sai sót.