2002年分区联赛提高组之一 均…

Description

　　有 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）。 

Input

N（N 堆纸牌，1 <= N <= 100） 
A1 A2 … An （N 堆纸牌，每堆纸牌初始数，l<= Ai <=10000） 

Output

所有堆均达到相等时的最少移动次数。

Sample Input

 

4 

9 8 17 6

 

Sample Output

 

3

解题思路：先读入各堆牌张数，求总张数，然后求牌的平均张数，且每堆牌的张数减去平均数，然后把左边和右边的零都过滤掉，用一个循环把牌移动，并计数，最后输出计数。

程序：

const

  maxn=100;

var

  i,j,n,step:integer;ave:longint;

  a:array[1..maxn]of integer;

  f:text;filename:string;

begin

  readln(n);

  ave:=0;

  step:=0;

  for i:=1 to n do

    begin

      read(a[i]);

      inc(ave,a[i]);

    end;

  ave:=ave div n;

  for i:=1 to n do

    a[i]:=a[i]-ave; 

  i:=1;

  j:=n;

  while (a[i]=0) and (i

  while (a[j]=0) and (j>1) do dec(j);

  while (i

    begin

      inc(a[i+1],a[i]);

      a[i]:=0;

      inc(step);

      inc(i);

      while (a[i]=0) and (i

    end;

  writeln(step);

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0hs.html

转载时必须以链接形式注明原始出处及本声明。