(define n (string->number (read-line))) (define as (sort (map string->number (string-split (read-line) " ")))) (print (cond ((zero? (mod n 2)) (let* ((ptr (/ n 2)) (a (ref as (- ptr 1))) (b (ref as ptr))) (/ (+ a b) 2))) (else (ref as (- (ceiling (/ n 2)) 1)))))