搬运树苗（move）

 搬运树苗（move）

输入文件：move.in

输出文件：move.out

【问题描述】

Neyc的绿化工程正在进行，树苗已经被工人送到园区内。设计师希望将树苗种植成一个环形的绿化带，这个绿化带有n个树苗群，而每个树苗群有相同数量的树苗。但是在卸放树苗时，工人虽然按环形排列将树苗放置了n堆，但是每一个树苗群的树苗数量却没有满足要求。

于是，需要从任意一个树苗群中取任意数量的树苗搬运到相邻的树苗群，使得每个树苗群树苗的数量相等。

为了节约时间，现在需要找到一种搬运方式：搬运最少的树苗使得每一个树苗群的树苗数目相同。

当然，每个树苗群的树苗数量是已知的，分别是m_1,m₂……….m_n，且S=m₁+m₂….m_n必为n的倍数。

例如：n=4，每个树苗群的树苗数量分别为17 9 14 16 4，我们进行如下搬运;

(1)    树苗群1向树苗群2搬运1棵树苗；

(2)    树苗群1向树苗群5搬运4棵树苗；

(3)    树苗群3向树苗群2搬运2棵树苗；

(4)    树苗群4向树苗群5搬运4棵树苗；

搬运树苗的总数是1+4+2+4=11，并且可以证明这样的搬运方式是最佳的搬运方法。

【输入格式】

第一行正整数n（n<=10000）,表示有n个树苗群；

第二行n个整数（integer范围），表示n个树苗群的树苗数量。

【输出格式】

一个正整数，表示最少搬运树苗的数量。

【样例输入】

5

17 9 14 16 4

【样例输出】

11

=================

 将环拆成链......

================= 

var  n:longint;  tot,ans:int64;  m:array[0..20000]of longint;  f:array[0..20000]of int64;procedure init;begin  assign(input,'move.in');  assign(output,'move.out');  reset(input); rewrite(output);end;procedure terminate;begin  close(input); close(output);  halt;end;procedure main;var  i,j:longint;  rest:longint;begin  readln(n);  tot:=0;  for i:=1 to n do    begin      read(m[i]);      tot:=tot+m[i];    end;  for i:=1 to n do    m[n+i]:=m[i];  tot:=tot div n;  ans:=maxlongint;  fillchar(f,sizeof(f),0);  for i:=1 to n do    begin      rest:=0;      for j:=1 to n do        begin          inc(f[i],abs(rest));          rest:=rest+m[i+j-1]-tot;        end;      if f[i]<ans then ans:=f[i];    end;  writeln(ans);end;begin  init;  main;  terminate;end.