Дан массив Z(10). Вставить число Р между теми числами, которые образуют пару с одинаковыми знаками. СДЕЛАТЬ В БЭЙСИКЕ

Sub ObrabotkaMassivov()

Dim Z(), N() As Integer

Dim i As Integer, j As Integer, k As Integer, P As Integer, Msg As String

ReDim Z(10), N(10)

For i = 1 To 10

Msg = “Vvedite " & i & " element “massiva

Z(i) = InputBox (Msg)

N(i) = Z(i)

Next i

P = InputBox (“Vvedite znachenie P")

i = 10 : k = i

Do While i > 1

If Z(i)*Z(i-1) > 0 Then

k = k + 1

Redim Z(k)

For j = 1 To i - 1

Z(j) = N(j)

Next j

Z(i) = P

For j = i + 1 To k

Z(j) = N(j - 1)

Next j