import Data.List

main = getLine >> getLine >>= print . solve . map read . words

solve :: [Int] -> Int
solve a = let n = length a; m = (sort a) !! (div n 2) in sum . map abs . map (subtract m) $ a