(use srfi-1)

(define (main args)
  (let* ([n (read)]
         [ls (sort (list-tabulate n (lambda (_) (read))))]
         [v (list-ref ls (quotient n 2))])
    (print
     (apply + (map (lambda (x) (abs (- x v))) ls))))
  0)