$b=<>;$n=<>;$s+=$_ for@c=sort{$a<=>$b}<>;
$a=$c[$n/2];
$a=($s+$b)/$n|0 if $a*$n>$s+$b;
$r+=abs($a-$_)for@c;
print$r