V16T1

Option Base 1
Private Sub Command1_Click()
Dim Q() As Single, P() As Single, m As Integer, k As Integer, i As Integer, maxP As Single, minQ As Single, minQIndex As Integer
m = InputBox("Введите размерность Q")
For i = 1 To m
    Q(i) = InputBox("Введите элемент Q")
Next
k = InputBox("Введите размерность P")
For i = 1 To k
    P(i) = InputBox("Введите элемент P")
Next
maxP = P(1)
minQ = Q(1)
minQIndex = 1
For i = 1 to k
    If maxP < P(i) Then
        maxP = P(i)
    End If
Next
For i = 1 to m
    If minQ > Q(i) Then
        minQ = Q(i)
        minQIndex = i
    End If
Next
Q(minQIndex) = maxP
End Sub