Паскаль. выявить отрезки возрастания в последовательности

[kano]

дана последовательность из n чисел (n=50).выявить отрезки возрастания в этой последовательности и вывести каждый из них на экран с новой строки.на паскале

[Aristarh Dark]

Я вижу решение так:
Дан массив из 50 элементов.

Вводим переменную НачалоПоследовательности, инициализируем ее в -1

Организуется цикл по массиву, начиная со второго элемента. 
  В цикле текущий элемент сравниваем с предыдущим, 
    если он больше 
      то смотрим переменную НачалоПоследовательности 
         если она равна -1 то 
            устанавливаем ей значение - ТекущийЭлементМассива-1,
            если она положительна - ничего не меняем
    если он меньше
      то смотрим переменную НачалоПоследовательности
         если она равна -1 то 
            ничего не делаем
            если она положительна - выводим в цикле элементы исходного массива, начиная с индекса НачалоПоследовательности и заканчивая ТекущийЭлементМассива-1 затем устанавливаем НачалоПоследовательности в -1

Примерно так.

[Stilet]

А я это так вижу :

var a:array[1..50] of integer;
var s,k:integer;
begin clrscr;
{Здесь мы массив забиваем как хотим}
for k:=2 to high(a) do begin
if a[k]>a[k-1] then write('(',a[k-1],' to ',a[k],') ');end;
writeln;
end.

[puporev]

фразу

write('(',a[k-1],' to ',a[k],') ');

лучше написать так

writeln('[',a[k-1],' , ',a[k],'] ');

Это правильнее математически.
Последнее writeln убрать, т.к. появляются лишние пробелы, и решение даже при TextMode(258) не влезает.
А все таки интересно, как вывести все числа из интервала. У меня не получается.

[Stilet]

Верно, и еще я там провтыкал если такая последовательность 2,3,3,4,3
то на самом то деле должно быть [2,4] а у меня будет [2,3][3,4]
В общем там подправить нуна бы (Эт я просто не сразу допер )) )

[puporev]

Все у тебя првильно, просто плохо мы арифметику знаем. Интервал [3,3] не является интервалом возрастания по определению (a[i]>a[i-1],
а не а[i]>=a[i-1], ). Еще я свой предыдущий пост поправил, пока ты писал. Посмотри.

[kano]

ВСЕМ БОЛЬШОЕ СПАСИБО ЧТО ПОМОГЛИ.

[Stilet]

все числа из интервала

ы-ы-ы не понял? что имеется ввиду?

[puporev]

Я имел в виду то , что если интервал возрастания выглядит как -1,0,1,2, то на экран выводится [-1,2], а хотелось бы, чтоб выводилось -1,0,1,2.

[Tayfun]

выявить отрезки возрастания в этой последовательности и вывести каждый из них на экран с новой строки

Я имел в виду то , что если интервал возрастания выглядит как -1,0,1,2, то на экран выводится [-1,2], а хотелось бы, чтоб выводилось -1,0,1,2.

с точки зрения математики отрезок, для последовательности -1,0,1,2, должен обозначаеться так (-1,2), хотя здейсь скорей всего имелась в виду имеено такая запись -1,0,1,2, условие задачи надо уточнить, а понятие интервала к данной задачи несовсем корректо, хотя не отрицаеться.