比赛代码 - COGS

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

显示代码纯文本

program move;
var
  n,t,ans,i,ans2:int64;
  sz:array[1..10000]of longint;
begin
  assign(input,'move.in');
  assign(output,'move.out');
  reset(input);
  rewrite(output);
  readln(n);
  ans:=0;
  for i:=1 to n do
  begin
    read(sz[i]);
    ans:=ans+sz[i];
  end;
  ans:=ans div n;
  ans2:=0;
  for i:=1 to n do
    ans2:=ans2+abs(ans-sz[i]);
  writeln(ans2 div 2);
  close(input);
  close(output);
end.