import Data.List
main = getLine >> getLine >>= print . solve . map head . group . sort . map read . words

solve :: [Int] -> Int
solve [] = 0
solve (_ : []) = 0
solve (x : y : []) = y - x
solve (x : y : zs) = min (y - x) $ solve (y : zs)