Найти целочисленные массивы 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
