Вопрос по информатике:
Дано 2 массива определенной длины. Выполнить разделения и переформирование массива на два - массив четных чисел и массив нечетных чисел
Пожаловаться
- 13.10.2017 10:49
- Информатика
- remove_red_eye 9403
- thumb_up 47
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=a.Where(x->x.IsEven).ToArray; b.Println;
var c:=a.Where(x->x.IsOdd).ToArray; c.Println
end.
Пример
n= 17
-21 2 32 -38 -42 20 -46 47 -1 17 8 -31 10 -12 -46 -50 13
2 32 -38 -42 20 -46 8 10 -12 -46 -50
-21 47 -1 17 -31 13
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=a.Where(x->x.IsEven).ToArray; b.Println;
var c:=a.Where(x->x.IsOdd).ToArray; c.Println
end.
Пример
n= 17
-21 2 32 -38 -42 20 -46 47 -1 17 8 -31 10 -12 -46 -50 13
2 32 -38 -42 20 -46 8 10 -12 -46 -50
-21 47 -1 17 -31 13
Пожаловаться
- 14.10.2017 03:21
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы