Найти номер столбца наименьшего элемента - VB

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

Вечер добрый, помогите, если не сложно. Необходимо найти номер столбца наименьшего элемента строки, используя процедуру-функцию и процедуру-подпрограмму. Помогите найти ошибку в процедурах, функция zadanie3 выводит 0, не могу понять, почему. Заранее спасибо !

                    Листинг программы
                
 
                        
                          
                    
    Function zadanie3(ByVal i As Integer, ByVal n As Integer, ByVal mass(,) As Double) As Integer
        Dim j As Integer
        Dim min As Integer
 
        For j = 0 To n - 1
            If min < mass(i, j) Then
                min = j
                Exit For
            End If
        Next
        Return min
    End Function
 
    Sub Zadanie4(ByVal n As Integer, ByVal mass(,) As Double, ByVal k As Integer, ByRef j As Integer)
        Dim i As Integer
        j = 0
        For i = 0 To k - 1
 
            j = zadanie3(i, n, mass) + 1
        Next
 
    End Sub

Решение задачи: «Найти номер столбца наименьшего элемента»

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

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

9 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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