Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент, равный заданному числу k ? Если есть, то вывести номер первого его вхождения. Формат входных данных С клавиатуры вводится натуральное число n (...
Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент, равный заданному числу k
? Если есть, то вывести номер первого его вхождения.
Формат входных данных
С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. Все числа по модулю не превосходят 100. В последней строке вводится число k, (−100≤k≤100).
Формат выходных данных
В качестве ответа выведите индекс искомого элемента. Если такого элемента нет, то вывести 0.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы