Question

Cho dãy số gồm N phần tử A1, A2, ..., AN (1 <= n <= 10⁶). Hãy tìm một đoạn con liên tiếp dài nhất các phần tử đan dấu nhau.

Input:

-       Dòng đầu tiên nhập số N

-       Dòng tiếp theo nhập các số A₁, A₂, …, A_N

Output:

-       Một số duy nhất là độ dài đoạn con đan dấu liên tiếp dài nhất

Answer 1

Const Fi='Daycon.INP'
      Fo='Daycon.OUT'
Var f,g: text;
    A: array[1..1000] of longint;
    i,j,max,d,n: longint;

Begin
        Assign(f,fi); Reset(f);
        Assign(g,fo); Rewrite(g);
        readln(f,n);

        For i:=1 to n do Read(f,A[i]);
        max:=0;
        i:=1;
        While i <= n  do
        Begin
                j:=i;
                d:=1;

        While (A[j]<A[j+1]) and (j<=n) do
        Begin
                inc(d);
                inc(j);
        End;
        If d> max then
                max:=d;

        i:=j+1;
        End;
        Write(g,max);
        Close(f);
        Close(g);
End. 

Chúc bạn học tốt