Получить массив 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д