Viết chương trình nhập điểm của 10 học sinh. (Làm chung 1 chương trình) a) Tính tổng điểm 10 hs trên. b) Tính điểm trung bình 10 hs trên c) Đếm số học sinh có điểm lớn hơn 5? d) Có bao nhiêu hs giỏi?

program Min;
uses crt;
var A:array[1..10] of real;
    tong,tb:real;
    i,dem:integer;
begin 
   clrscr;
   tong:=0; tb:=0;
   for i:=1 to 10 do 
   begin
      write('Nhap diem cua hoc sinh ',i,': ');
      readln(A[i]);
   end;
   for i:=1 to 10 do
   begin
      tong:=tong+A[i];
      if A[i]>5 then inc(dem);
   end;
   tb:=tong/10;
   writeln(' ');
   writeln('Tong diem cua 10 hs la: ',tong:4:2);
   writeln('Diem trung binh cua 10 hs la: ',tb:4:2);
   writeln('So hoc sinh tren 5 diem la: ',dem);
   readln
end.
   

Đây là code chương trình hoàn thiện cho ba câu a, b, c. Còn câu d thì mình không rõ lắm, như thế nào thì là học sinh giỏi, điều kiện là gì?

Program BTT;
Uses crt;
Var A: array[1..10] of real;
    i,d,g: byte;
    s,tb: real;
Begin
        Clrscr;
        s:=0; d:=0; g:=0;
        For i:=1 to 10 do
        Begin
                Write('Nhap diem hoc sinh thu ',i,': '); Readln(A[i]);
                s:=s+A[i];
                If A[i]>5 then inc(d);
                If A[i]>=8 then inc(g);
        End;

        tb:=s/10;

        Writeln('Tong diem: ',s:0:2);
        Writeln('TBC: ',tb:0:2);
        Writeln('Co ',d,' hoc sinh tren 5 diem');
        Write('Co ',g,' hoc sinh gioi');
        Readln
End.