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