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 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(' ');