Viết phương trình nhập điểm Tin của n học sinh trong lớp em (n-số tự nhiên nhập từ bàn phím). Đếm và thông báo lên màng hình: lớp em có bao nhiêu bạn đạt giỏi (điểm từ 8 trở lên)
VD:
Nhập số họ sinh trong lớp là 4
Điểm bạn thứ 1: 3
Điểm bạn thứ 2: 4
Điểm bạn thứ 3: 7
Điẻm bạn thứ 4: 9
Số bạn học giỏi trong lớp là 1
Lưu ý: học sinh dùng mảng một chiều
uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
begin
clrscr;
write('Nhap so hoc sinh trong lop la ');readln(n);
for i:=1 to n do
begin
write('Diem ban thu',' ',i,': ');read(A[i]);
end;
for i:=1 to n do
if a[i]>=8 then d:=d+1;
writeln('So ban hoc sinh gioi trong lop la ',d);
readln;
end.
Bạn nhấn alt+f5 để hiện kết quả nha!!! 
