Найти целочисленные массивы 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