Const n=20;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i], );
 end;
writeln;
k:=0;
for i:=2 to n do
 if a[i]=2*a[1] then k:=i;
if kgt;0 then writeln(k = ,k)
       else writeln(Искомый элемент отсутствует);
end.

Пример:
21 15 6 25 0 39 13 15 0 14 26 20 42 38 39 46 24 45 35 49 
k = 13