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