четные элементы массива

[Герасим]

Народ,подскажите как расположить в порядке возрастания четные элементы массива.

[RXL]

Чувак, секрета никакого нет: берешь и размещаешь. Надеюсь, я помог в твоей задаче. Лол, чувак!

[Герасим]

несовсем....
вот код:
Private Sub Command1_Click()
Dim N, a(), i, j, mn, num_mn, tmp
Dim sp As String
N = InputBox("Введите размер массива")
ReDim a(N)

For i = 1 To N
a(i) = Int(Rnd * 100 - 50)
Picture1.Print "Исходный массив"
Picture1.Print ; a(i)
Next i
h = Val(InputBox("Введите число", , h))
For i = 1 To N
If a(i) > h Then
Picture2.Print ; a(i)
Picture2.Print ; "-"
End If
Next i
 
For i = 1 To N
sp = ""
 If a(i) > h Then
    mn = a(i): num_mn = i: sp = "              "
    For j = i To N Step 2
      If a(j) > h And mn > a(j) Then
         mn = a(j): num_mn = j
      End If
    Next j
    If num_mn > i Then
       tmp = a(num_mn): a(num_mn) = a(i): a(i) = tmp
    End If
  End If
 Picture3.Print ; sp; a(i)
Next i
End Sub

но тут нада куда- то step 2 чтобы выводил только четные....а куда незнаю....

[RXL]

Расскажи нам, как работает эта программа и что тут для чего.