Задан массив М, состоящий из N целочисленных элементов. Упорядочить элементы таким образом, чтобы вначале располагались все нечетные аргументы, а после них все четные.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ArrRandom(ReadInteger(n=),1,99).Println(, );
m.Where(x->Odd(x)).Concat(m.Where(x->x mod 2=0)).Println(, )
end.
Тестовое решение:
n= 13
69, 83, 40, 53, 85, 88, 86, 25, 74, 30, 77, 58, 70
69, 83, 53, 85, 25, 77, 40, 88, 86, 74, 30, 58, 70
Оцени ответ
