tin học 8, làm việc với dãy số, giúp mình với nha!!!!

Question

viết chương trình nhập điểm trung bình của lớp 8, in ra màn hình đtb cao nhất , số học sinh giỏi (đtb>=8.0), hs yếu ( đtb < 5.0) , in vị trí các bạn hs giỏi 

Answer 1

program bt;

uses crt;

var i,n,gioi,yeu: integer;

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

begin

clrscr;

writeln('Nhap so ban trong lop: '); readln(n);

writeln('Nhap diem: ');

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

gioi:=0; yeu:=0;

for i:=1 to n do begin

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

if a[i] < 5.0 then yeu:=yeu+1;

end;

writeln('So ban gioi la: ',gioi);

writeln('So ban yeu la: ',yeu);

readln

end.