В заданном произвольном одномерном массиве

[maxim1592]

В заданном произвольном одномерном массиве определить число элементов самой длинной упорядоченной по возрастанию подпоследовательности.

[ZX Spectrum-128]

http://informatics.mccme.ru//mod/book/view.php?id=488

[maxim1592]

что-то не получается...сбросьте код программы

[Serge_Bliznykov]

ого. либо я чего-то не учитываю, либо по ссылке более эффективные методы решения...

я бы написал примерно так:

const N = 10;
type MyMas = array[1..N] of integer;

function LenMaxLengthGrow(A : MyMas; var IndexOfMax : integer) : integer;
var
  i, max, k, max_index : integer;
begin
  {поиск самой длинной последовательности}
  max := 0;
  k := 1;
  for i := 2 to N do begin
    if A[i]>A[i-1] then inc(k)
    else
      begin
       if (k > max) then
         begin
           max := k;
           max_index := i - k;
         end;
       k := 1;
     end;
  end;

  {а это проверка, если самая длинная
      последовательность завершает строку}
  if (k > max) then begin
     max := k;
     max_index := N - k + 1;
  end;


  LenMaxLengthGrow := max;

  if max=0 then IndexOfMax := 0 { 'Ничего найти ва-аа-аще не удалось!' }
  else 
     IndexOfMax := max_index;
     { 'Самая длинная последовательность длиной ',max:1,
                ' начинается с индекса ', max_index:1; }
end;

var 
  Mas : MyMas;
  i, maxLength, indx : integer;
begin
  Randomize;
  for I:=1 to N do Mas[i] := Random(20+i*2) + i*2;

  Write('Исходный массив: ');
  for I:=1 to N do Write(Mas[i]:2,' ');
  WriTeln;

  indx := 0;
  maxLength := LenMaxLengthGrow( Mas, indx);

  WriteLn('Самая длинная последовательность длиной ',maxLength:1,
                ' начинается с позиции : ', indx:1);

  readln;
end.

[maxim1592]

спасибо большое