Предмет: Информатика,
автор: traswwooo
Задан массив М, состоящий из 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
Будет тот же результат, только на один оператор длиннее.
Похожие вопросы
Предмет: Окружающий мир,
автор: aleeeexxx
Предмет: Биология,
автор: milaole
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: 12345689987654321