Дан массив из n элементов. необходимо определить, - вопрос №6148903 от Levern 02.04.2022 04:01

Question

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

Levern · 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.