Получить массив Y(i), записав сначала четные а затем нечетные числа - VB

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

Из массива целых случайных чисел X={Xi}, где i={1,2...n}, получить массив Y={y(m)}, записав сначала четные а затем нечетные числа. Например: Если Х={1,2,3,4,5,6}, то Y={2,4,6,1,3,5}.

Решение задачи: «Получить массив Y(i), записав сначала четные а затем нечетные числа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
Cls
Dim x&(), y&(), n&, k&
n = InputBox("n")
ReDim x(n), y(n)
Randomize
For i = 1 To n
 x(i) = Rnd(1) * 100 \ 1
 Print x(i);
Next i
Print
 
For i = 1 To n
 If x(i) Mod 2 = 0 Then k = k + 1: y(k) = x(i)
Next i
 
For i = 1 To n
 If x(i) Mod 2 <> 0 Then k = k + 1: y(k) = x(i)
Next i
 
For i = 1 To n
 Print y(i);
Next i
 
End Sub

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

12 голосов , оценка 4.083 из 5

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

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

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