import Data.List

main :: IO ()
main = do
    n <- readLn :: IO Int
    k <- readLn :: IO Int
    xs <- map read . lines <$> getContents :: IO [Int]
    print $ maximum xs - minimum xs