program move;
var
n,t,ans,i,ans2:longint;
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.