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

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление

составим уравнение:

x- первая корзина

y- вторая корзина

x+54=x+y

x-x+54=y

y=54 - (во второй корзине)

x=54+38

x=92

z- третья корзина

z=x-27

z=92-27

z=65

ответ: в третей корзине 65 орехов