bzoj1863

白书上的题目

这里唯一要说一下的就是，二分答案不难想到，怎么构造答案的合理性非常值得注意

var a,b,d:array[0..20010] of longint;
    n,l,r,m,ans,i:longint;

function max(a,b:longint):longint;
  begin
    if a>b then exit(a) else exit(b);
  end;

function min(a,b:longint):longint;
  begin
    if a>b then exit(b) else exit(a);
  end;

function check(k:longint):boolean;
  var x,y,i:longint;
  begin
    x:=a[1];
    y:=k-a[1];
    b[1]:=x;
    d[1]:=0;
    for i:=2 to n do
      if i mod 2=1 then
      begin
        d[i]:=min(y-d[i-1],a[i]);
        b[i]:=a[i]-d[i];
      end
      else begin
        b[i]:=min(x-b[i-1],a[i]);
        d[i]:=a[i]-b[i];
      end;
    if b[n]=0 then exit(true) else exit(false);
  end;

begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  if n=1 then
  begin
    writeln(a[1]);
    halt;
  end;
  a[n+1]:=a[1];
  for i:=1 to n do
    l:=max(l,a[i]+a[i+1]);
  if n mod 2=0 then writeln(l)
  else begin
    for i:=1 to n do
      r:=max(r,a[i]*3);
    ans:=r;
    while l<=r do
    begin
      m:=(l+r) shr 1;
      if check(m) then
      begin
        ans:=m;
        r:=m-1;
      end
      else l:=m+1;
    end;
    writeln(ans);
  end;
end.