Question

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

Answer 1

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!!!