Написать ** паскале в массиве из n элементов найти произведение отрицательных элементов...

Question

Написать на паскале в массиве из n элементов найти произведение отрицательных элементов и сумму положительных.

Answer 1

Программа:

//Программа написана на PascalABC.NET 3.2 сборка 1325

begin

 var k: integer := ReadInteger('Введите количество элементов в массиве >');

 println('Введите',k,'элементов массива: ');

 var n: array of integer := ReadArrInteger(k);

 writeln('Произведение отрицательных элементов: ',n.Where(x -> x<0).Aggregate(1,(p,x) -> p*x));

 writeln('Сумма положительных элементов: ',n.Where(x -> x>0).Sum);

end.

Comments

а можно более примитивное написание программы. просто такие операции, как aggregate, println еще не изучали