Дан массив из n элементов. необходимо определить, есть ли в данном массиве два соседних элемента, равных заданному числу k ? если есть, то вывести индексы первой такой пары чисел. индексация элементов начинаются с единицы формат входных данных с клавиатуры вводится натуральное число n (n≤100). на следующей строке через пробел вводятся n элементов массива. все числа по модулю не превосходят 100. в последней строке вводится число k, (−200≤k≤200). формат выходных данных в качестве ответа выведите индексы искомых элементов через пробел в порядке возрастания. если таких элементов нет, то вывести 0.
129
392
Ответы на вопрос:
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.
Часто бывает ситуация, когда одного компьютера просто не хватает. Надо Расширять беспроводной интернет как это делать надо взять 4 компьютера у подключения к серверу (Nero SwiftKey)
Популярно: Информатика
-
dashbrazhik29.08.2020 21:39
-
alixegp073ii02.12.2022 21:43
-
KlodMone103.09.2020 23:50
-
Nejdan123.01.2023 13:11
-
Мария830130.03.2022 02:33
-
Sweetkristina22.08.2020 03:36
-
Дентсик90121.04.2020 09:55
-
Cat4ik06.04.2022 01:27
-
baryshnikova2023.04.2022 09:03
-
Strelkov1827.10.2021 06:40