С клавиатуры вводится массив a(1 to 6) as integer. затем некоторые элементы массива переставляются согласно фрагменту программы. Каким будет массив после перестановки, если первоначально был введён
а) 1, 2, 10, 4, 5, 6
б) 8, 2, 0, 7, 0, 15

For i = 1 To 3
If a (2*i) > a(2*i - 1) Then
buf = a(2*i)
a(2*i) = a(2*i - 1)
a(2*i - 1)=buf
End If : Next

Помогите!

переадресовано в pay.diary.ru/~programming/