{* Задача78 *}

REM basic

' Включить дополнительный элемент в к-ую позицию и сформировать новый массив размером n+1


CLS
n = 18
k = 3
m = 9  
Dim A(n), B(n + 1)
     RANDOMIZE TIMER
  For i = 1 To n
    A(i) = INT(RND * 50)
    PRINT A(i);
  Next
    For i = 1 To n
    If i >= k Then B(i + 1) = A(i) Else B(i) = A(i)
  Next
   B(k) = m
    PRINT String$(80, 196)
  For i = 1 To n + 1
    PRINT B(i);
  Next
End