bzoj 3293 数学整理

和1045一模一样，找到这道题的时候还愣了下神，最后发现样例都是

一样的，直接粘了1045的代码，具体题解看

http://www.cnblogs.com/BLADEVIL/p/3468729.html

/**************************************************************
    Problem:
    User: BLADEVIL
    Language: Pascal
    Result: Accepted
    Time: ms
    Memory: kb
****************************************************************/
 
//By BLADEVIL
var
    n                   :longint;
    a, sum              :array[..] of int64;
    i                   :longint;
    ave                 :int64;
    ans, k              :int64;
procedure swap(var a,b:int64);
var
    c                   :int64;
begin
    c:=a; a:=b; b:=c;
end;
     
procedure qs(low,high:longint);
var
    i, j, xx            :longint;
begin
    i:=low; j:=high; xx:=sum[(i+j) div ];
    while i<j do
    begin
        while sum[i]<xx do inc(i);
        while sum[j]>xx do dec(j);
        if i<=j then
        begin
            swap(sum[i],sum[j]);
            inc(i); dec(j);
        end;
    end;
    if i<high then qs(i,high);
    if j>low then qs(low,j);
end;
     
begin
    read(n);
    for i:= to n do read(a[i]);
    for i:= to n do sum[i]:=sum[i-]+a[i];
    ave:=sum[n] div n;
    for i:= to n do sum[i]:=sum[i]-i*ave;
    qs(,n);
    k:=sum[(+n) div ];
    for i:= to n do ans:=ans+abs(sum[i]-k);
    writeln(ans);
end.