Задан массив М, состоящий из N целочисленных элементов. Упорядочить элементы таким образом, чтобы вначале располагались все нечетные аргументы, а после них все четные.
Ответы
Ответ дал:
0
// 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
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
Ответ дал:
0
Согласно Вашему условию это массив, превращенный в поледовательность. Если Вам нужен строго массив, поставьте перед Println точку с запятой, затем пробел и далее m.Println(', ');
Ответ дал:
0
Будет тот же результат, только на один оператор длиннее.
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад