import Data.List

main = do
  _ <- getLine
  ds <- sort . map read . words <$> getLine :: IO [Int]
  let ts = sort $ 0 : map (\(d,i) -> if d==0 then 0 else if even i then d else 24-d) (zip ds [0..])
  let ans = minimum (zipWith (-) (tail ts) ts)
  print ans