На ленте расположен массив из 2n меток. Составить программу, по которой
10-11 класс
|
машина раздвинет на расстояние в одну клетку две половины данного массива.
Головка расположена над массивом.
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
Другие вопросы из категории
Сообщение на тему "Эксплуатационные преобразования к компьютерному рабочему месту"
1) ADC и ADD
2) PUSH и POP
3) JMP и POPF
4) SUB и SBB
способом закодировать последовательность символов CDAB и записать результат в шестнадцатеричном коде, то получится:
1) А5216 2) 4С816 3) 15D16 4) DE516
Читайте также
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
"делятся на"использовать стандартную функцию MOD,которая определяет остаток отделение числа А на число В.Примечание таблица R целочисленная.Построение блок-схемы,алгоритм и бейсики.Заранее большое спасибо))
Составьте программу по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных
помогите пожалуйста очень прошу )
сообщает название этого дня. Например, если ввели 1, то выведется фраза "это понедельник" и т.д.