Module _20190420

    Sub Main()

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

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

        '1個の場合は必ず眺められる
        If intMountainCount = 1 Then

            Console.WriteLine(1)

            Exit Sub

        End If

        Dim fWatchFlg As Boolean = True
        Dim iWatchCount As Integer = 1
        For i = 1 To intMountainCount - 1

            fWatchFlg = True

            For j = 0 To i - 1

                If CInt(sHeight(j)) > CInt(sHeight(i)) Then

                    fWatchFlg = False

                    Exit For

                End If

            Next

            If fWatchFlg = True Then

                iWatchCount += 1

            End If

        Next

        Console.WriteLine(iWatchCount)

    End Sub

End Module