Module _20190420

    Sub Main()

        '山の数
        Dim intMountainCount As Integer = Console.ReadLine()

        '高さ
        Dim sHeight As String() = Console.ReadLine().Split(" ")

        Dim iMaxHeight As Integer = CInt(sHeight(0))
        Dim iWatchCount As Integer = 0
        For i As Integer = 0 To intMountainCount - 1

            If CInt(sHeight(i)) >= iMaxHeight Then

                iWatchCount = iWatchCount + 1

                iMaxHeight = CInt(sHeight(i))

            End If

        Next

        Console.WriteLine(iWatchCount)

    End Sub

End Module