Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {6, 7, 4, 4, 3, 3, 3, 5, 5, 7, 8, 3, 3, 9, 3}
Dim frequency As Integer = 0
Dim min As Integer = arr.Min()
For i As Integer = 1 To arr.Length - 1
If arr(i) = min Then
frequency += 1
End If
Next
Console.WriteLine(frequency)
End Sub
End Class
' run:
'
' 6
'