main = do
    n <- getLine
    as <- (map read) <$> words <$> getLine :: IO [Int]
    let negCnt = length $ filter (<0) as
    let absLst = map abs as
    print $ if even negCnt then sum absLst else sum absLst - 2*(minimum absLst)