В массиве 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.

Объяснение кода листинга программы

  1. Объявлены константы Min и Max, которые ограничивают диапазон случайной генерации чисел.
  2. Создана функция ArrRandom, которая генерирует случайные числа в заданном диапазоне.
  3. Функция ReadlnInteger запрашивает у пользователя ввод количества элементов для массива A.
  4. Функция Println выводит элементы массива A на экран.
  5. Функция Select выбирает из элементов массива B только положительные числа и заменяет их на минимальный элемент массива A.
  6. Функция ToArray преобразует последовательность элементов в массив.
  7. Создается массив A с помощью функции ArrRandom и введенным пользователем количеством элементов.
  8. Создается массив B с помощью функции ArrRandom и введенным пользователем количеством элементов.
  9. Выводится на экран массив B.
  10. Выполняется замена положительных элементов массива B на минимальный элемент массива A с помощью функции Select.
  11. Выводится на экран полученный массив B.

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы