В массиве b все положительные элементы заменить минимальным элементом массива a - PascalABC.NET
Формулировка задачи:
Создать случайным образом массив a и b. В массиве b все положительные элементы заменить минимальным элементом массива a.
Решение задачи: «В массиве b все положительные элементы заменить минимальным элементом массива a»
textual
Листинг программы
const Min = -10; Max = 10; begin var A := ArrRandom(ReadlnInteger('Count A:'), Min, Max).Println().ToArray(); var B := ArrRandom(ReadlnInteger('Count B:'), Min, Max).Println().Select(x -> x > 0 ? A.Min() : x).Println().ToArray(); end.
Объяснение кода листинга программы
- Объявлены константы Min и Max, которые ограничивают диапазон случайной генерации чисел.
- Создана функция ArrRandom, которая генерирует случайные числа в заданном диапазоне.
- Функция ReadlnInteger запрашивает у пользователя ввод количества элементов для массива A.
- Функция Println выводит элементы массива A на экран.
- Функция Select выбирает из элементов массива B только положительные числа и заменяет их на минимальный элемент массива A.
- Функция ToArray преобразует последовательность элементов в массив.
- Создается массив A с помощью функции ArrRandom и введенным пользователем количеством элементов.
- Создается массив B с помощью функции ArrRandom и введенным пользователем количеством элементов.
- Выводится на экран массив B.
- Выполняется замена положительных элементов массива B на минимальный элемент массива A с помощью функции Select.
- Выводится на экран полученный массив B.