Получить массив 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