Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент, равный заданному числу k

? Если есть, то вывести номер первого его вхождения.

Формат входных данных

С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. Все числа по модулю не превосходят 100. В последней строке вводится число k, (-100≤k≤100).

Формат выходных данных

В качестве ответа выведите индекс искомого элемента. Если такого элемента нет, то вывести 0.

Question

Информатика

Аникий

25 июня, 16:41

Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент, равный заданному числу k

? Если есть, то вывести номер первого его вхождения.

Формат входных данных

С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. Все числа по модулю не превосходят 100. В последней строке вводится число k, (-100≤k≤100).

Формат выходных данных

В качестве ответа выведите индекс искомого элемента. Если такого элемента нет, то вывести 0.

+5

Ответы (1)

Знаете ответ на вопрос?

Любовь · Answer 1

Var

i, k, n: integer;

a: array[1 ... 10000]of integer;

begin

readln (n) ;

for i : = 1 to n do read (a[i]) ;

readln (k) ;

for i : = 1 to n do if (a[i] = k) then

begin

write (i) ;

exit;

end;

write ('0') ;

end.