Cod sursa(job #226803)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 2 decembrie 2008 20:53:07
Problema Oo Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.92 kb
var f,g:text;
    v,c,d:array[0..100010]of longint;
    n,a,b,s,t,i,ca:longint;

begin
assign(f,'oo.in');
assign(g,'oo.out');
reset(f);
rewrite(g);
read(f,n);
read(f,a);
ca:=a;
for i:=2 to n-1 do
  begin
    read(f,b);
    if (i<5)then s:=0 else s:=v[i-4];
    v[i-1]:=a+b+s;
    if (v[i-1]<v[i-2])then
      v[i-1]:=v[i-2];
    if (i>2)then
      begin
        if (i<5)then s:=0 else s:=c[i-4];
        c[i-1]:=a+b+s;
        if (c[i-2]>c[i-1])then c[i-1]:=c[i-2];
      end;
    if (i>3)then
      begin
        if (i<5)then s:=0 else s:=d[i-4];
        d[i-1]:=a+b+s;
        if (d[i-2]>d[i-1])then d[i-1]:=d[i-2];
      end;
    a:=b;
  end;
read(f,b);
if (n<5)then s:=0 else s:=c[n-4];
t:=s+a+b;
if (n<5)then s:=0 else s:=d[n-3];
if (t<s+b+ca)then t:=s+b+ca;
if (t<v[n-2])then t:=v[n-2];
if (n<5)then s:=0 else s:=v[n-4];
if (s>t)then write(g,s)else write(g,t);
close(f);
close(g);
end.