Предмет: Информатика,
автор: I3lad
Pascal
Написать программу, которая для заданного при вводе исходных данных целочисленного
одномерного массива А из m элементов (m<=200), вычисляет произведение
положительных элементов и произведение отрицательных элементов или сообщает, что
элементов такого вида нет. ( m задается при вводе исходных данных).
Ответы
Автор ответа:
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.
Пример работы:
Приложения:

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