{* Задача52 *}

REM basic

' Сформировать векторы V1(8) и V2(5). Вставить V2 в V1 между его 4-м
' и 5-м элементами.


CLS

Dim V1(8 + 8), V2(8), V3(8 + 8)
       
        PRINT " Исходные векторы "
RANDOMIZE TIMER
For i = 1 To 8
        V1(i) = CInt(RND * 9)
        V2(i) = CInt(RND * 9)
        PRINT V1(i); V2(i)
Next i

For i = 1 To 5
        V3(i) = V1(i)
Next i

For i = 1 To 8
        V3(i + 5) = V2(i)
Next i

For i = 6 To 8
        V3(13 + i - 5) = V1(i)
Next i
        PRINT "Вектор V1 со вставкой"
For i = 1 To 16
        V1(i) = V3(i)   
        PRINT V1(i);
Next i

End