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

Используя линейный массив выведите позицию элемента который в два раза больше первого в паскале
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы