Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные

@maverick16 · Регистрация: 23.12.2014

Из массива JJ(100) в массив NN(100) перенести числа(элементы массива): сначала нечетные, а затем четные.Вывести массив NN на печать по 10 элементов в строке.Если поможете буду очень благодарен!

@JuriiMW · 23.12.2014, 06:56

Час назад давал на ответах майл:

Pascal

indexN := 0;
for indexJ := 1 to 100 do if odd(JJ[indexJ]) then begin Inc(indexN); NN[indexN] := JJ[indexJ]; end;
for indexJ := 1 to 100 do if Not odd(JJ[indexJ]) then begin Inc(indexN); NN[indexN] := JJ[indexJ]; end;
for indexN := 1 to 100 do begin Write(NN[indexN]:5); if indexN mod 10 = 0 then WriteLn; end;

@maverick16 · 23.12.2014, 15:44 **[ТС]**

А можешь полностью расписать программу,ну т.е с вводом значений и так далее,просто я вообще не шарю?

@maverick16 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 10
		1
	Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные 23.12.2014, 01:23. Показов 2890. Ответов 2 Метки нет (Все метки) Из массива JJ(100) в массив NN(100) перенести числа(элементы массива): сначала нечетные, а затем четные.Вывести массив NN на печать по 10 элементов в строке.Если поможете буду очень благодарен! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@maverick16 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 10
	23.12.2014, 15:44 [ТС]	3
	А можешь полностью расписать программу,ну т.е с вводом значений и так далее,просто я вообще не шарю? 0

Опции темы

Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные

Решение