Предмет: Информатика, автор: I3lad

Pascal
Написать программу, которая для заданного при вводе исходных данных целочисленного
одномерного массива А из m элементов (m<=200), вычисляет произведение
положительных элементов и произведение отрицательных элементов или сообщает, что
элементов такого вида нет. ( m задается при вводе исходных данных).

Ответы

Автор ответа: LRSM
0

Ответ:

  • begin
  • var a := ReadArrInteger(ReadInteger('n:'));
  • Println('Положительных:', a.Any(x->x>0)?a.Product(x->x>0?x:1).ToString:'нет');
  • Println('Отрицательных:', a.Any(x->x<0)?a.Product(x->x<0?x:1).ToString:'нет');
  • end.

Пример работы:

Приложения:
Похожие вопросы
Предмет: Русский язык, автор: кристина89167410585
Предмет: Русский язык, автор: alisonlove