Спасите больше некуда податся???

LOL :)

Ну типа для всех i a[i]<a[i+1].

На, вот тебе на Haskell-е. На C++ сам перепишешь, раз ты его хорошо знаешь.

check :: [Integer] -> Bool
check [] = True
check (head:tail) = res where
    (_, res) = foldl (\ (prev, res) next -> (next, (next > prev) && res)) (head, True) tail


main :: IO ()
main = if (check [1, 2, 3, 4, 5, 6, 8]) then
            putStrLn "Good"
       else
            putStrLn "Bad"

Может я чего-то не понимаю, но как можно знать программирование и не понимать, что такое возрастающая последовательность?

ВСЕМ большой сенкс уже сделал :)