比赛代码 - COGS

比赛	20091026	评测结果	WAWWWWWWWA
题目名称	货物搬运	最终得分	20
用户昵称	Hamster	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-10-26 20:16:14

显示代码纯文本

program move;
var
  i,j,n:integer;
  a:array[1..10000] of integer;
  s,ss:longint;

begin
  assign(input,'move.in');
  assign(output,'move.out');
  reset(input);
  rewrite(output);

  read(n);
  for i:=1 to n do
  begin
    read(a[i]);
	s:=s+a[i];
  end;
  ss:=s div n;
  s:=0;
  for i:=1 to n do s:=abs(a[i]-ss)+s;
  s:=s div 2;
  write(s);

  close(input);
  close(output);
end.