一个int数组，里面数据无任何限制，要求求出所有这样的数a[i]，其左边的数都小于等于它，右边的数都大于等于它。

81.第1组百度面试题
1.一个int数组，里面数据无任何限制，要求求出所有这样的数a[i]，
其左边的数都小于等于它，右边的数都大于等于它。
能否只用一个额外数组和少量其它空间实现。

VB.NET codes as below:

Module Module1

Sub Main()

Dim array = {1, 2, 1, 2, 3, 2, 3, 4, 5, 6, 7, 3, 2, 3, 9}

PrintValues(array)

Console.ReadKey()

End Sub

Public Sub PrintValues(ByVal array As Integer())

Dim arrayLength = array.Length

Dim container(0 To arrayLength - 1) As Boolean

Dim leftMax As Integer = array(0)

For i = 0 To arrayLength - 1

If array(i) >= leftMax Then

container(i) = True

leftMax = array(i)

End If

Next

Dim rightMin As Integer = array(arrayLength - 1)

For i = 0 To arrayLength - 1

If array(arrayLength - 1 - i) <= rightMin Then

rightMin = array(arrayLength - 1 - i)

If container(arrayLength - 1 - i) = True Then

Console.WriteLine(array(arrayLength - 1 - i).ToString())

End If

End If

Next

End Sub

End Module