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<0?x:1).ToString:'нет');
• end.

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