{* Задача53 *}

REM basic

' В векторе М(N) заполненном на половину, продублировать все элементы
' с сохранением порядка их следования.


 
CLS
INPUT "Введите количество заполненных элементов ", N
Dim V(2 * N), V1(2 * N)
       
        PRINT " Исходный вектор "
RANDOMIZE TIMER
For i = 1 To N
        V(i) = CInt(RND * 9)
        PRINT V(i);
Next i: PRINT
       
        
For i = 1 To 2 * N - 1 Step 2
  k = k + 1
        V1(i) = V(k)
        V1(i + 1) = V(k)
Next i

         PRINT "Результат "
For i = 1 To 2 * N
        V(i) = V1(i)
        PRINT V(i);
Next i

End