Sabotage

题目

FJ 的死对头，FP，现在决定了去破坏FJ 的挤奶设备！
这个挤奶设备由一行N（3 <= N<= 100, 000）个挤奶机器，其中第i 个机器生产Mi 单位的牛奶（1<= Mi <= 10, 000）。FP 计划将机器连续的一块断开——从第i 个机器到第j 个机器（2<= i<= j<= N-1）；注意第一个和最后一个机器FJ 并不想要断开，因为这会让这次事件太容易被发现。FP 的目标是让剩下的机器的牛奶平均产量最小。FP 打算移去至少一台机器，即使对他来说不进行破坏更好。
幸运的是，FJ 已获悉FP 的邪恶计划，并且他想知道如果计划成功他的挤奶设备会被破坏成什么样。请帮助FJ 找到，如果FP 成功，最小的剩下挤奶机器的平均生产量。

题意

给你n个数，让你删去连续的一段，使得剩下的数的平均值最小。

分析

像往常一样，二分加判断。
但是判断怎么写呢？
我们可以把每个数减去要求证的k。
那么若一段数的和sum[i]-sum[j-1]=0，那么这段数的平均数是等于k的。
那么一样sum[i]-sum[j-1]<0，那么这段数的平均数是小于k的。
sum[i]-sum[j-1]>0，那么这段数的平均数是大于k的。
那么我们便可以这样二分了，
是不是很像之前的一道平均数的题。
没错，只不过这题求的是减去一段数后的最小，那么其实也一样的。
维护一段最大的和（即平均数），然后用全部的和去减去这一段的和。
就和上面的判断一样，若小于等于那么说明还可以继续往下二分，否则就往上二分。

var
    mid,l,r:extended;
    i,n:longint;a,b,s:array[0..100000] of extended;
function check(k:extended):boolean;
var i:longint;mi,ma:extended;
begin
    for i:=1 to n do s[i]:=s[i-1]+a[i]-k;
    mi:=a[1];ma:=a[2]-k;
    for i:=2 to n-1 do begin
        if mi>s[i-1] then mi:=s[i-1];
        if ma<s[i]-mi then ma:=s[i]-mi;
    end;
    if s[n]-ma<=0 then exit(true) else exit(false);
end;
begin
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        if a[i]>r then r:=a[i];
    end;
    while l<r do begin
       mid:=(l+r)/2;
       if r-l<0.0001 then break;
       if check(mid) then r:=mid else l:=mid;
    end;
    writeln(l:0:3);
end.