На ленте расположен массив из 2n меток. Составить программу, по которой машина раздвинет на расстояние в одну клетку две половины данного массива. Головка расположена над массивом.

VB. Dim A() As Integer Randomize() Dim k As Integer Dim n As Integer n = Rnd() * 100 + 1 ReDim A(n) For k = 0 To n     A(k) = Rnd() * -1000 + 500 Next Dim Dump As Integer Dim u As Integer u = InputBox("Введите номер элемента для встанвки в пределах от 0 до " & n) ReDim Preserve A(n + 1) For k = n + 1 To u + 1 Step -1     Dump = A(k)     A(k) = A(k - 1)     '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535        A(k - 1) = Dump Next