Question

Помогите пожалуйста ооооооочень срочно!!!!!!!!!! 20 баллов
Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений:

–5; 5; 36; –10; 98; 63; 2; 8; 37 ; –45.

В отчет включить тексты программ на Паскале, реакцию ЭВМ.

Answer 1

                                              PascalABC.NET

begin

 var A := ReadArrInteger('Введите числа:', 10);

 Println('Произведение положительных:', a.Where(x -> x > 0).Product);

 println('Сумма отрицательных:', a.Where(x -> x < 0).Sum);

 Println('Количество отрицательных:', a.Count(x -> x < 0));

end.