def w(ar,be,le)
    #pp "ar = #{ar}, be = #{be}, le = #{le}"
    if(le == 0 || ar.length < be+le-1)then return 0 end
    flag = 0
    flag2 = 0
    le.times do |i|
        if ar[be+i] >= 1 then
            flag = 1
        else
            flag2 = 1
        end
        #pp "now i = #{i}, flag = #{flag}, flag2 = #{flag2}"
    end
    if flag == 0 then return 0 # 全て 0 だった場合、水やりができないため 0 を返す
    end
    if flag2 == 0 then # 全てが 1 以上だった場合、すべてに水やりをするため w 関数を再帰呼び出しする
        le.times do|i|
            ar[be+i] -= 1
        end
        return w(ar,be,le) + 1
    end
    
    # まず0じゃないところまで be をずらす #
    count = 0
    while ar[be] <= 0 do
        be +=1
        le -=1
    end
    # 次に 0 のところを見つけて再帰呼び出しをする #
    i = be+1
    flag = 1 # 0 が見つけられなかった場合のフラグ
    while i < (be + le) do
        if ar[i] == 0 then
            count += w(ar,be,i-be) # 0 より前の要素を再帰呼び出し
            count += w(ar,i+1, le-(i-be+1)) # 0 より後の要素を呼び出し
            flag = 0
            break
        end
        i += 1
    end
    if flag == 1 then count += w(ar,be,le) end
    return count
end

len = gets.chomp!.to_i
arr = gets.chomp!.split.map &:to_i

puts w(arr,0,len)