В заданном одномерном массиве поменять местами соседние элементы - 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