Ответ:

var

 A:array[1..10] of integer;

 b: integer;

begin

 randomize;

 for var i := 1 to 10 do begin

   A[i]:=random(20);  

   end;

 for var i := 1 to 10 do begin    

   if a[i]>10 then

     write(i,' ');

     end;

end.

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 1, 20);

 a.Println;

 for var i := 0 to a.High do

   if a[i] > 10 then

     Print(i + 1)

end.