В заданном одномерном массиве поменять местами соседние элементы - VB

Узнай цену своей работы

Формулировка задачи:

Парни нужна помощь...помогите В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

Решение задачи: «В заданном одномерном массиве поменять местами соседние элементы»

textual
Листинг программы
Sub Task()
Dim i As Integer, N As Integer, A() As Integer, sStr As String
N = InputBox("N:")
ReDim A(1 To N)
For i = 1 To N
    A(i) = Int(Rnd * 9 + 1)
    sStr = sStr & A(i) & " ; "
    If i Mod 2 = 0 Then
        iTmp = A(i)
        A(i) = A(i - 1)
        A(i - 1) = iTmp
    End If
Next
sStr = sStr & vbNewLine
For i = 1 To N
    sStr = sStr & A(i) & " ; "
Next
MsgBox sStr
End Sub

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


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

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

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