Определить номер столбца в двумерном массиве, количество 1-иц в котором наименьшее - VB

Формулировка задачи:

собственно задание в заголовке, есть случайно сформированный массив x(n,m) в нём есть 1-цы, определить в котором столбце их больше или меньше всего(не имеет значение, что именно) и вывести этот столбец. Набросал, вот такой код, но в вывод просто номер последнего столбца, а не нужного.

Sub poisk(ByRef x(,) As Integer, ByVal n As Integer, ByVal m As Integer)
        Dim max As Integer
        Dim k As Integer
        Dim a As Integer
        max = Integer.MinValue
        K = 0
        For j = 0 To m
            For i = 0 To n
                If x(i, j) = 1 Then k = k + 1
            Next i
     if k > max then a=j
        Next j
        TextBox3.Text = a
    End Sub

Спасибо за помощь.

Решение задачи: «Определить номер столбца в двумерном массиве, количество 1-иц в котором наименьшее»

textual
                            Листинг программы 
                        

                               Sub poisk(ByRef x(,) As Integer)
        Dim max As Integer = 0
        Dim k As Integer = 0
        Dim a, i, j As Integer
        For j = 0 To UBound(x, 2)
            k = 0
            For i = 0 To UBound(x, 1)
                If x(i, j) = 1 Then k = k + 1
            Next i
            If k > max Then max = k: a = j
        Next j
        TextBox3.Text = a
    End Sub
                        

Оцени полезность:

12 голосов , оценка 3.917 из 5

Похожие ответы