$b=<>;$n=<>;$s+=$_ for@c=<>;
$a=$s/$n+.5|0;
--$a if $a*$n>$s+$b;
$r+=abs($a-$_)for@c;
print$r