Pascal Написать программу, которая для заданного при вводе исходных данных...

Question

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

Answer 1

Ответ:

• 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
• end.

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