Используя линейный массив выведите позицию элемента который в два раза больше первого в...

Question

Используя линейный массив выведите позицию элемента который в два раза больше первого в паскале

Answer 1

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 k>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