比赛代码 - COGS

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

显示代码纯文本

program pianfen;
var
  a:array[1..10000]of integer;
  s,n,i,t:longint;
begin
  assign (input,'move.in');
  reset (input);
  assign (output,'move.out');
  rewrite (output);
     readln (n);
     for i:=1 to n do
     begin
       read (a[i]);
       s:=s+a[i]
     end;
     s:=s div n;
     for i:=1 to n do
       if a[i]-s>0 then
       t:=t+a[i]-s;
     writeln (t);
  close (input);
  close (output)
end.