关闭

1013:摆积木 分数: 1

262人阅读 评论(0) 收藏 举报
分类:

题目描述

小明很喜欢玩积木。一天,他把许多积木块组成了好多高度不同的堆,每一堆都是一个摞一个的形式。然而此时,他又想把这些积木堆变成高度相同的。但是他很懒,他想移动最少的积木块来实现这一目标,你能帮助他吗?


输入格式

输入包含多组测试样例。每组测试样例包含一个正整数n,表示小明已经堆好的积木堆的个数。
接着下一行是n个正整数,表示每一个积木堆的高度h,每块积木高度为1。其中1<=n<=50,1<=h<=100。
测试数据保证积木总数能被积木堆数整除。
当n=0时,输入结束。


输出

对于每一组数据,输出将积木堆变成相同高度需要移动的最少积木块的数量。
在每组输出结果之间输出一个空行。


样例输入

6
5 2 4 1 7 5
0


样例输出

5

program p1013;
var n:integer;a:array[1..50]of longint;i,s,b,c:longint;
begin
 while not eof do
 begin
 readln(n);
  s:=0;
  if n<>0 then
  begin
  for i:=1 to n do
  begin
  read(a[i]);
  s:=s+a[i];
  end;
  b:=s div n;
  s:=0;
  for i:=1 to n do
  begin
   if a[i]<b then
   s:=s+b-a[i];
  end;
  writeln(s);
  writeln;
  end;
  end;
end.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:14958次
    • 积分:107
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档