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.