read b
read n
read -dx s
for c in $s
{
a[b+=c,c]+=\ $c
}
a=(${a[@]})
v=a[n/2]
for c in $s
{((c-=v<b/n?v:b/n,r+=c<0?-c:c))
}
echo $r