Предмет: Информатика, автор: Filka7

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

Ответы

Автор ответа: zhangirdosmogo42
0

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

Похожие вопросы
Предмет: Математика, автор: Alin113
Предмет: История, автор: citrus20
Предмет: Алгебра, автор: limon51