main = do
    getLine
    getLine
    n <- map read . lines <$> getContents
    print $ maximum n - minimum n