Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Обработка последовательности данных (in DELPHI or Pascal)
Вводиться последобательность целых чисел. Создать новую последовательность, которая содержит номера позиций, в которых начинаются подряд идущие значения в нисходящем порядке.

Пример:
Введено: 2 6 7 3 2 10 4 15 20 22 9
Результат: 2 5 9

Cпасибо !

1 | Автор: snuppy | 2008-12-04, 14:24   |  Репутация: [ + 0 ]
А в чем проблема? Обнуляем новую последовательность. Например, строчное d=''; Прокручиваете циклом последовательность. Цикл до предпоследнего for i=1 to n-1 В цикле проверка: if s(i+1)-s(i)=1 Если да то, то d=d+' '+IntToStr(i) если нет - то ничего.
2 | Автор: admin | 2008-12-08, 20:43   |  Репутация: [ + 22 ]
  • Страница 1 из 1
  • 1
Поиск: