Переставить элементы одномерного массива - 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

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


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

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

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