V16T1

Option Base 1
Private Sub Command1_Click()
Dim S() As Single, n As Integer, m As Integer, y As Single, i as Integer, j as Integer
y = InputBox("Введите y")
n = InputBox("Введите n")
m = InputBox("Введите m")
ReDim S(n, m)
For i = 1 To n
    For j = 1 To m
        S(i, j) = InputBox("Введите элемент матрицы S")
        If S(i, j) > y Then
            Print "(" & i & ", " & j & ")"
        End If
    Next
Next
End Sub