function abs(n){
	return (n>=0) ? n : -n
}

BEGIN{
	RS=","
}
{
 c[NR] = $1
}

END{
	maxpos=0
	for(i=1;i<=NR;i++) if(maxpos<c[i]) maxpos=c[i]

	min = 1000000
	for(i=1;i<=maxpos;i++){
		difs = 0
		for(j=1;j<=NR;j++){
			difs += abs(c[j]-i)
		}
		if(difs<min){
			min = difs
			cmin = c[i]
		}
#		print c[i], difs
	}
	print "min", min, "cmin", cmin
}