/DAYSO - Dãy số (OLPCĐ 2014)

<Problem>

http://ntucoder.net/Problem/Details/123
              Uses Crt,math;
        Var n,i,j:longint;
            kq:int64;
            a,b,d:array[-40..10000] of int64;
        Begin
            readln(n);
            //f[0]:=0;
            kq:=-maxlongint;
            for i:=1 to n do
            begin
                 read(a[i]);
                 b[i]:=b[i-1]+a[i];
            end;
            //for i:=1 to n do write(b[i],' ');      writeln;
            for i:=3 to n do
            begin
                d[i]:=max(b[i]-b[i-3],d[i-3]+b[i]-b[i-3]);
                if d[i]>kq then kq:=d[i];
                if d[i]<0 then d[i]:=0;
            end;
            writeln(kq);
            readln;
        End.