не понятен алгоритм(((

[A_L_E_N_K_A]

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

дан целочисленный массив .найти в нем подпоследовательность максимальной длинны,представляющую собой арифметическую прогрессию.

[Hacker19_90]

Не понимаете как выявить арифметическую прогрессию?
или что?

[A_L_E_N_K_A]

да,как найти эту последовательность?

[ByAlex]

Сообщение от A_L_E_N_K_A

да,как найти эту последовательность?

Для начала вычитаешь из второго элемента первый - это будет шаг. Если остальные элементы больше или меньше предыдущего на этот шаг, то это и будет арифметическая прогрессия! Например, 3 6 9 12 15 ...

[Hacker19_90]

И ещё такой момент как
Если длина последовательности больше или равно двух
То у вас как минимум два элемента прогрессии есть в любом случае
(ну это так)

[A_L_E_N_K_A]

это понятно,
а вот как заставить программу понять,что например 1 2 3 4 6 8 1 2 1 1 1 1 4 8 12 16 20
из этого что -то вообще лишнее,а где- то прогрессия,в которой больше элементов

[Wicort]

берешь первые 2 элемента.
ищешь шаг прогрессии как к = а(2)-а(1)
дальше бежишь циклом от 3 элемента до последнего.
если a(n)-a(n-1)=к, значит все еще элементы прогрессии.
если a(n)-a(n-1) <> к, значит прогрессия закончилась элементом a(n-1). Прерываем работу цикла.
Вроде ничего не перепутал

[DiemonStar]

в коде выглядит как-то так:

var A : array[1..N] of integer;
    I, J, Step, Len, MaxLen : Integer;
begin
...
MaxLen := 0;
I:=1;
While I < N - MaxLen do
  begin
     J := I+1;
     Step := A[I] - A[J];
     Len := 1;
     repeat
        J := J + 1;
        Len := Len + 1;
     until A[J] - A[J-1] <> Step;
     If Len > MaxLen then MaxLen := Len;
     I := I + 1;
  end;
end.

upd.
Спасибо, Серж! Забыл про границу массива. Хотя равенство здесь необязательно

While I <= ( N - MaxLen ) do

не имеет смысла вычислять последовательность с такой же длиной, как уже найдена.

[Serge_Bliznykov]

если довести до ума алгоритм DiemonStar,
получаем такой код:

const N = 17;
const B : array[1..N] of integer = (1,2,3,4,6,8,10,1,2,1,1,1,4,8,12,16,20);

var A : array[1..N] of integer;
    I, J, Step, Len, MaxLen : Integer;
    MaxLenStartPos : integer;
begin
  for i:=1 to N do A[i] := B[i];

  MaxLen := 0;
  I:=1;
  While I <= ( N - MaxLen ) do
    begin
       J := I+1;
       Step := A[J] - A[I];
       Len := 1;
       repeat
          inc(j);
          inc(Len);
       until (j>N) or (A[J] - A[J-1] <> Step);
       If Len > MaxLen then begin
          MaxLen := Len;
          MaxLenStartPos := I;
       end;
       if Len > 1 then
         I := I + Len - 1
       else
         Inc(I)
    end;

  WriteLn('макс.длина = ',MaxLen, ' начиная с позиции ', MaxLenStartPos);
  readln

end.

[A_L_E_N_K_A]

так.хорошо,за это спасибо,но вот если задача стоит на с++ написать,там же нельзя сделать безразмерный массив