Задать вопрос
30 июня, 03:16

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

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

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

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

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

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

+2
Ответы (1)
  1. 30 июня, 06:45
    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 : = 2 to n do if (a[i - 1] = k) and (a[i] = k) then

    begin

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

    exit;

    end;

    write ('0') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив из n элементов. Необходимо определить, есть ли в данном массиве два соседних элемента, равных заданному числу k ? Если есть, то ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы