На ленте расположен массив из 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

Подробнее - на Znanija.com - https://znanija.com/task/4209522#readmore