[洛谷1031]均分纸牌

题目来源

www.luogu.org

原地址

http://www.luogu.org/problem/show?pid=1031#

题目描述

　　有 N 堆纸牌，编号分别为 1，2，…, N。每堆上有若干张，但纸牌总数必为 N 的倍数。可以在任一堆上取若于张纸牌，然后移动。
　　移牌规则为：在编号为 1 堆上取的纸牌，只能移到编号为 2 的堆上；在编号为 N 的堆上取的纸牌，只能移到编号为 N-1 的堆上；其他堆上取的纸牌，可以移到相邻左边或右边的堆上。
　　现在要求找出一种移动方法，用最少的移动次数使每堆上纸牌数都一样多。
　　例如 N=4，4 堆纸牌数分别为：
　　①　9　②　8　③　17　④　6
　　移动3次可达到目的：
　　从 ③ 取 4 张牌放到 ④ （9 8 13 10） -> 从 ③ 取 3 张牌放到 ②（9 11 10 10）-> 从 ② 取 1 张牌放到①（10 10 10 10）。

输入输出格式

输入格式：

键盘输入文件名。文件格式：
N（N 堆纸牌，1 <= N <= 100）
A1 A2 … An （N 堆纸牌，每堆纸牌初始数，l<= Ai <=10000）

输出格式：

输出至屏幕。格式为：
所有堆均达到相等时的最少移动次数。

输入输出样例

输入样例#1：

4
9 8 17 6

输出样例#1：

3

题解

这题有一个好方法，因为每堆牌最后都是一样多的，不如先算出所有的平均数，一堆牌向左或向右移，其实可以视为右边一堆牌减少或增加左边一堆牌和平均值的差。(这一步其实又可以讲减少或增加理解成增加一个正数或负数）这样以后，一切就简单的多了。只需从1枚举到n-1，如果这一个数与平均数不同，则计数器+1，反之后面一个数加上前一个数离平均数的差。



代码

var

  ans,t,n,i,s,b:longint;

  a:array[1..10000] of longint;

begin

  ans:=0;t:=0;

  readln(n);

  for i:=1 to n do begin read(a[i]);t:=t+a[i];end;

  s:=t div n;

  for i:=1 to n-1 do

  begin

    b:=0; 

    if a[i]<>s then begin b:=a[i]-s;inc(ans);end;

    a[i+1]:=a[i+1]+b;

  end;

  writeln(ans);

end.