Уменьшить все элементы массива в 2 раза. Определить произведение элементов массива с k1 по k2 - PascalABC.NET

Формулировка задачи:

Дан целочисленный массив A[n]. а)Уменьшить все элемент массива в 2 раза. б)Определите произведение элементов массива с k1 по k2

Решение задачи: «Уменьшить все элементы массива в 2 раза. Определить произведение элементов массива с k1 по k2»

Листинг программы

begin
  var a := ArrRandomReal(ReadlnInteger('N = '), -50, 50); a.Println;
  a := a.Select(v -> v / 2).ToArray; a.Println;
  var (k1, k2) := (ReadlnInteger('K1 = '), ReadlnInteger('K2 = '));
  var p := a.Skip(k1 - 1).Take(k2 - k1 + 1).Aggregate(1.0, (x, v) -> x * v);
  writeln('Произведение = ', p)
end.

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

ArrRandomReal - функция, которая генерирует случайные числа в заданном диапазоне и возвращает массив действительных чисел.
ReadlnInteger - функция, которая считывает целочисленное значение из стандартного ввода.
a - переменная типа массив, которая инициализируется случайными числами в диапазоне от -50 до 50.
Select - метод, который применяет заданную функцию к каждому элементу массива и возвращает новый массив с результатами.
ToArray - метод, который преобразует последовательность элементов в массив.
(k1, k2) - переменная типа кортеж, которая содержит два целочисленных значения, считанных из стандартного ввода.
Skip - метод, который пропускает указанное количество элементов в начале последовательности.
Take - метод, который возвращает указанное количество элементов из начала последовательности.
Aggregate - метод, который применяет заданную функцию к элементам последовательности, последовательно сокращая ее до одного значения.
writeln - функция, которая выводит текст и значения переменных на стандартный вывод.