Попарная замена элементов в массиве - VB

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

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

Не могу сделать задачу!!!Помогите ПОЖАЛУЙСТА!!!!!Нужно сформировать массив и выполнить попарную замену элементов в массиве.(Кол-во элементов в массиве должно быть четное) Я сделала часть массива.Не знаю как сделать так,чтобы было именно четное кол-во элементов в массиве и как выполнить попарную замену.Например ( 6 7 8 9 1 3) ,замена (7 6 9 8 3 1 ) -нужно вот так сделать.

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

textual
Листинг программы
Private Sub Command4_Click()
Dim S As Integer
N = Text1.Text
: NAX
K = InputBox("ВВедите К")
if K<=0 or K>N then msgbox "AuAuAu": goto NAX
S = 0
For I = K To N
 S = S + a(I)
Next
Text5.Text = S
End Sub

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

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