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