import Data.List
main = getLine >> getLine >> getContents >>= print . solve . sort . map read . lines

solve :: [Int] -> Int
solve (x : xs) = last xs - x