main = do
  li <- getLine
  let n = read li
  li <- getLine
  let as = map read $ words li
  let ans = compute n as
  print ans

{-
偶数個のとき、奇数番目の和と偶数番目の和の大きい方。
奇数個のとき、まず列から最小値を見つけ、それの前と後ろに分ける。
どちらも偶数個なので、上の戦略でそれぞれ大きい値を見つけ、足す。
最小値が複数あるかもしれないのが面倒。それらの間で部分和を共有しないとか？

分割して両方奇数個になる場合もあるので間違い。
-}

compute :: Int -> [Int] -> Int
compute n as
  | even n = computeEven 0 0 as
  | True   = maximum vs
  where
    x = minimum as
    is = map snd $ filter ((x ==).fst) $ zip as [0..]
    vs = [ computeEven 0 0 bs + computeEven 0 0 (drop 1 cs)
         | i <- is, let (bs,cs) = splitAt i as ]

computeEven s t [] = max s t
computeEven s t (x:y:xs) = computeEven (s+x) (t+y) xs
