Переставить элементы одномерного массива - VB
Формулировка задачи:
Нужно переставить элементы одномерного массива следующим образом a(0), a(11), a(1), a(10), a(2), a(9), a(3), a(8). a(4), a(7), a(5), a(6).
Заранее благодарю!
Решение задачи: «Переставить элементы одномерного массива»
textual
Листинг программы
- Sub main()
- Dim A(11) As Integer, B, i As Integer, s As String
- Randomize
- s = "Исходный массив:" & vbCrLf
- For i = 0 To 11
- A(i) = Int(Rnd * 99 + 1)
- s = s & "A(" & i & ")=" & A(i) & " "
- Next i
- B = A
- s = s & vbCrLf & vbCrLf & "Результат:" & vbCrLf
- For i = 10 To 0 Step -2
- A(i) = B(i / 2)
- A(i + 1) = B(11 - (i / 2))
- Next i
- For i = 0 To 11
- s = s & "A(" & i & ")=" & A(i) & " "
- Next i
- MsgBox s
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
