Найти целочисленные массивы N размера - VB
Формулировка задачи:
Дан целочисленный массив А размера N. Переписать в новый целочисленный массив В того же размера
вначале все элементы исходного массива с четными номерами, а затем с нечетными...
Заранее благодарю!
Решение задачи: «Найти целочисленные массивы N размера»
textual
Листинг программы
Sub main() Dim n As Long, i As Long n = 10 'или InputBox("Введите N:") ReDim a(1 To n) As Long, b(1 To n) As Long For i = 1 To n a(i) = Int(Rnd * 100) Next i For i = 1 To n \ 2 b(i) = a(i * 2) b(n \ 2 + i) = a(i * 2 - 1) Next i If n And 1 Then b(n) = a(n) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д