Определить номера элементов массива, у которых совпадают значения с соседними элементами.

@наташа 1 · Регистрация: 07.04.2019

Author24 — интернет-сервис помощи студентам

Задан массив из 20 элементов. Определить номера элементов массива, у
которых совпадают значения с соседними элементами.

@Sun Serega · 08.04.2019, 02:17

Номера тех которые совпадают с любым из соседних элементов:

Pascal

begin
  ReadArrInteger(20)
  .Pairwise
  .Numerate(0)
  .SelectMany(
    t->
    t[1][0]=t[1][1]?
    new integer[](t[0],t[0]+1):
    new integer[0]
  ).Distinct
  .Print;
end.

Или номера которых совпадают с обоими соседними элементами:

Pascal

begin
  ReadArrInteger(20)
  .Pairwise
  .Pairwise((t1,t2)->t1+t2[1])
  .Numerate(0)
  .Where(t-> (t[1][0]=t[1][1])and(t[1][1]=t[1][2]) )
  .Select(t->t[0]+1)
  .Distinct
  .Print;
end.

@наташа 1 · 08.04.2019, 02:28 **[ТС]**

СПАСИБО БОЛЬШОЕ!!!! ВЫ - СУПЕР!!!!

@наташа 1 0 / 0 / 0 Регистрация: 07.04.2019 Сообщений: 2
		1
	Определить номера элементов массива, у которых совпадают значения с соседними элементами. 07.04.2019, 21:25. Показов 1213. Ответов 2 Метки нет (Все метки) Задан массив из 20 элементов. Определить номера элементов массива, у которых совпадают значения с соседними элементами. 0

@наташа 1 0 / 0 / 0 Регистрация: 07.04.2019 Сообщений: 2
	08.04.2019, 02:28 [ТС]	3
	СПАСИБО БОЛЬШОЕ!!!! ВЫ - СУПЕР!!!! 0

Определить номера элементов массива, у которых совпадают значения с соседними элементами.

Решение