Обработка последовательности данных (in DELPHI or Pascal)
Вводиться последобательность целых чисел. Создать новую последовательность, которая содержит номера позиций, в которых начинаются подряд идущие значения в нисходящем порядке.
А в чем проблема? Обнуляем новую последовательность. Например, строчное d=''; Прокручиваете циклом последовательность. Цикл до предпоследнего for i=1 to n-1 В цикле проверка: if s(i+1)-s(i)=1 Если да то, то d=d+' '+IntToStr(i) если нет - то ничего.
