Question

Viết chương trình nhập điểm toán của các bạn trong lớp in ra màn hình số bạn đạt điểm giỏi.

Answer 1

Program bt;

Uses Crt;

Var i,n,t : integer;

      a: array [1..100] of integer;

Begin

Clrscr;

write('Nhap so hoc sinh trong lop, n = '); readln(n);

writeln('Nhap diem');

for i:=1 to n do begin write(i,'.'); readln(a[i]); end;

t:=0

for i:=1 to n do begin

if a[i]>=8.0 then t:=t+1;

end;

write('So ban hoc sinh gioi la: ,t');

readln

End.