Получить массив В, состоящий из элементов массива А, которые кратны 2 - PascalABC.NET
Формулировка задачи:
Задан массив А(N). Получить из него массив В, состоящий из элементов массива А,
которые кратны двум
Решение задачи: «Получить массив В, состоящий из элементов массива А, которые кратны 2»
textual
Листинг программы
begin var a:=ArrRandomInteger(ReadInteger('размер a =')); Write('а : '); a.Println; var b:=a.Where(v->not odd(v)).ToArray; Write('b : '); b.Println; end.
Объяснение кода листинга программы
В данном коде:
- Переменная
a
инициализируется с помощью функции ArrRandomInteger, которая генерирует случайные целые числа. Размер массиваa
задается пользователем с помощью функции ReadInteger. - Выводится сообщение
а :
и массивa
выводится с помощью метода Println. - Создается новый массив
b
, который будет содержать только те элементы из массиваa
, которые кратны 2. Для этого используется метод Where, который фильтрует элементы массиваa
с помощью лямбда-выражения v->not odd(v), которое проверяет, является ли элемент нечетным числом. Затем, с помощью метода ToArray, полученный результат преобразуется в массив. - Выводится сообщение
b :
и массивb
выводится с помощью метода Println.