Сортировка элементов в двумерном массиве - 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

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

9 голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы