一維配列の最小値とそのインデックスを求める方法

2年 ago
夏樹, 風
1 minute

配列の最小値とインデックスを求めるには、配列をループで走査し、最小値と最小値のインデックスを記録する変数を使用します。

サンプルコードは以下のとおりです。

Sub Main()
    Dim arr() As Integer = {5, 2, 9, 6, 1}
    Dim min As Integer = arr(0)
    Dim minIndex As Integer = 0

    For i As Integer = 1 To arr.Length - 1
        If arr(i) < min Then
            min = arr(i)
            minIndex = i
        End If
    Next

    Console.WriteLine("最小元素为: " & min)
    Console.WriteLine("最小元素的下标为: " & minIndex)
End Sub

出力が得られる

最小元素为: 1
最小元素的下标为: 4
bannerAds