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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.308 из 5
Похожие ответы