В матрице С(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()