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

'VBScript Sub 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_pos End Sub Call Zadanie()