Есть ответ 👍

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

129
392
Посмотреть ответы 2

Ответы на вопрос:

annshik
4,5(49 оценок)

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.
zina0155
4,6(57 оценок)

Часто бывает ситуация, когда одного компьютера просто не хватает. Надо Расширять беспроводной интернет как это делать надо взять 4 компьютера у подключения к серверу (Nero SwiftKey)

Популярно: Информатика