$N=<>;@A=sort{$a-$b}glob<>; print$N%2?$A[$N/2]:($A[$N/2-1]+$A[$N/2])/2