Программа:

//Программа написана на 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.