Pascal Написать программу, которая для заданного - вопрос №13462608 от Маша4541 25.07.2020 12:37

Question

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

Маша4541 · Answer

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.

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

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