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

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

Задать свой вопрос
1 ответ

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 до " amp; 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 - znanija.com/task/4209522readmore

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт