Option Strict On
Module Module1

    Sub Main()
        Dim N As Integer = Convert.ToInt32(Console.ReadLine())
        Dim l() As String = Split(Console.ReadLine())
        Dim m(N - 1) As Integer
        For i As Integer = 0 To N - 1
            m(i) = Convert.ToInt32(l(i))
        Next
        Dim counter As Integer = 1
        Dim maxyama As Integer = m(0)
        For i As Integer = 1 To N - 1
            If maxyama <= m(i) Then
                counter += 1
                maxyama = m(i)
            End If
        Next
        Console.WriteLine(counter)
        Console.ReadLine()
    End Sub

End Module