Показать сообщение отдельно
  #2  
Старый 19.10.2010, 04:14
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,105
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Алгоритм такой.
Создаем еще один массив (динамический). Сначала он пустрой.
Теперь во внешнем цикле идем по элементам массива от Low(A) до High(A)-2. Первым шагом добавляем индекс внешнего цикла в наш массив.
Во внутреннем цикле идем от I до High(A) и если Jый элемент равен Iому, то добавляем в массив его индекс - J. Как только в массиве наберется 3 элемента, то искомые числа найдены. Если не наберется - то таких чисел нет.

Честно говоря, кодом написать проще, чем словами.
Ответить с цитированием