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