В матрице С(5,6) найти значение и индексы минимального элемента матрицы и количество положительных элементов.

'VBScriptSub Zadanie()    ReDim C(5, 6)    k_pos = 0    mini = LBound(C, 1)    minj = LBound(C, 2)    For i = LBound(C, 1) To UBound(C, 1)        For j = LBound(C, 2) To UBound(C, 2)            C(i, j) = Round(Rnd * 10)            if C(i, j) > 0 then k_pos = k_pos + 1            if C(i, j) < C(mini, minj) then                mini = i                minj = j            end if        Next    Next    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_posEnd SubCall Zadanie()