Найти произведение отрицательных элементов массива - PascalABC.NET

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

16. Найти произведение отрицательных элементов массива.

Решение задачи: «Найти произведение отрицательных элементов массива»

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

begin
  var a := ArrRandom(ReadlnInteger('Длина массива:'), -50, 50); a.Println;
  if a.Count(v -> v < 0) > 0 then
    writeln(a.Aggregate(1, (x, v) -> v < 0 ? x * v : x))
  else writeln('Отрицательных элементов нет');
end.

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

В данном коде выполняются следующие действия:

Ввод длины массива с помощью функции ReadlnInteger().
Создание массива a с помощью функции ArrRandom() и заданной длины.
Вывод содержимого массива a с помощью метода Println().
Проверка наличия отрицательных элементов в массиве a с помощью метода Count().
Если отрицательные элементы есть, то вычисляется произведение всех отрицательных элементов с помощью функции Aggregate().
Результат выводится на экран с помощью функции writeln().
Если отрицательных элементов нет, то выводится сообщение об их отсутствии с помощью функции writeln().