read -d! n k a
for a in $a;{((a>k?c+=a:0))||b[++m,a]+=\ $a;}
b=(${b[@]})
'm-->0?b[m--]+_:(c-~n%2)/2'
echo $[_]