Найти произведение всех отрицательных чисел введенной последовательности - Pascal ABC
Формулировка задачи:
ввести с клавиатуры n любых чисел.Найти произведение всех отрицательных
Решение задачи: «Найти произведение всех отрицательных чисел введенной последовательности»
textual
Листинг программы
begin
var IStr:= Range(1,ReadInteger('Введите количество чисел: ')).Select(i -> ReadReal(i.ToString));
writeln('Произведение отрицательных эллементов = ',IStr.Where(x -> x < 0).Aggregate(1.0, (x,y) -> x*y));
end.