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

Question

jolirsonden580 · Answer

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.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?