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

@alex2442 · Регистрация: 30.05.2012

Author24 — интернет-сервис помощи студентам

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

@sco43 · 01.06.2012, 10:43

Visual Basic

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

@alex2442 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 9
		1
	Получить массив Y(i), записав сначала четные а затем нечетные числа 31.05.2012, 23:01. Показов 1115. Ответов 1 Метки нет (Все метки) Из массива целых случайных чисел X={Xi}, где i={1,2...n}, получить массив Y={y(m)}, записав сначала четные а затем нечетные числа. Например: Если Х={1,2,3,4,5,6}, то Y={2,4,6,1,3,5}. 0

	01.06.2012, 10:43