Только 5(заблаговременно спасибо).

Var   a:array [1..10] of real;   
        sum:real;   
        i:integer;
begin 
randomize; 
Формирование массива
for i:=1 to 10 do  
begin 
    a[i]:=random*117-7;  начинаем от -7. От -7 до 110 находится 118 чисел, т.к. 110 не должно заходить в промежуток, то 118-1=117
    writeln (a[i]:10:2); 
end;  
Подсчет суммы положительных чисел в массиве
for i:=1 to 10 do 
  if a[i]gt;0 then sum:=sum+a[i]; 
writeln(' sum= ', sum:10:2); 
end.