Sub primer2()
    Dim a(1 To 4, 1 To 3) As Integer
    For i = 1 To 4 Step 1
        For j = 1 To 3 Step 1
            a(i, j) = InputBox("")
            Next j
        Next i
    Dim x As Integer
    Dim y As Integer
    x = InputBox("Ââåäèòå X: ")
    y = InputBox("Ââåäèòå I: ")
    For i = 1 To 3 Step 1
        If a(y, i) > x Then
            a(y, i) = x
        End If
        Next i
    For i = 1 To 4 Step 1
        For j = 1 To 3 Step 1
            MsgBox ("" & a(i, j))
            Next j
        Next i
End Sub