题目来源
原地址
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.