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

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.

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