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

[puporev]

Меня задача и ее условие особенно не волнуют. Мне интересно как вывести на экран например такие фрагменты массива (выделено красным):
. . .1 2 3 4 3 2 1 5 6 7. . .

[Aristarh Dark]

Вот решение по предложенному мной алгоритму:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  data:array [1..50] of integer;
  StartIntervar:Integer = -1;
  i:Integer;
procedure OutLineToScr(start,finish:byte);
//Вывод последовательности на экран
var
  j:integer;
begin
  WriteLn;
  WriteLn('[',start,',',finish,']');    //<- Это границы последовательности
  for j:=start to finish do
    Write(data[j],' ');                 //<- Это сама последовательность
  WriteLn;
end;
begin
  //Заполнили последовательность
  for i:=1 to 50 do
    data[i]:=Random(11)-5;
  //Поиск возрастающих последовательностей
  for i:=2 to 50 do
    begin
      if data[i-1]<data[i] then
        begin
          if StartIntervar<0 then
            StartIntervar:=i-1;
        end
      else
        if StartIntervar>0 then
          begin
            OutLineToScr(StartIntervar,i-1);
            StartIntervar:=-1;
          end;
    end;
  Readln;
end.

Есть тут одна бага - но это на самостоятельное решение оставлю, а то разжуй да еще и проглоти

[puporev]

Извините пожалуйста Aristarh Dark. Я вообще-то ввязался в переписку со Stilet, а Ваш первый пост внимательно не читал. Все нормально работает. Спасибо. Ошибку в Вашем коде нашел только одну.

StartIntervar:Integer = -1;

Я бы написал это так: StartIntervar:Integer;{:= -1}. Всего хорошего.