Найти произведение всех отрицательных чисел введенной последовательности - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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