Сортировка элементов в двумерном массиве - VB
Формулировка задачи:
Помогите решить задачу.
Дан двумерный массив А(3,3), пользователь заполняет его сам целыми числами. Отсортировать элементы этого массива так, чтоб сначала в массиве шли четные елементы, а за ними нечетные.
Ну никак не могу придумать, что можно сделать. С одномерным массивом сделал эту задачу, с двумерным - никак.
Решение задачи: «Сортировка элементов в двумерном массиве»
textual
Листинг программы
Option Base 1
Private Sub Command1_Click()
Dim a(7), b(7) As Integer
n = 0
For i = 1 To 7
a(i) = Val(InputBox("4islo"))
If a(i) Mod 2 = 0 Then
n = n + 1
b(n) = a(i)
End If
Next
For j = 1 To 7
If a(j) Mod 2 <> 0 Then
n = n + 1
b(n) = a(j)
End If
Next
For k = 1 To 7
Print b(k);
Next
End Sub