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

? Если есть, то вывести индексы первой такой пары чисел. Индексация элементов начинаются с единицы

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

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

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

В качестве ответа выведите индексы искомых элементов через пробел в порядке возрастания. Если таких элементов нет, то вывести 0.

Question

Информатика

Зиша

12 июня, 06:53

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

? Если есть, то вывести индексы первой такой пары чисел. Индексация элементов начинаются с единицы

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

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

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

В качестве ответа выведите индексы искомых элементов через пробел в порядке возрастания. Если таких элементов нет, то вывести 0.

+1

Ответы (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 : = 2 to n do if (a[i - 1] = k) and (a[i] = k) then

begin

write (i, ' ', i - 1) ;

exit;

end;

write ('0') ;

end.