Ответ:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Сумма положительных:', a.Sum(x->x>0?x:0));
• Println('Произведение отрицательных:', a.Product(x->x<0?x:1));
• end.

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

===PascalABC.Net===

var

 arr: array [1..100] of integer;

 n, i, sum, multiply: integer;

begin

 WriteLn('Программа находит сумму положительных и произведение отрицательных чисел в массиве.');

 Write('Введите размерность массива: ');

 ReadLn(n);

 multiply := 1;

 for i := 1 to n do

 begin

   Write('Введите ', i, ' элемент массива: ');

   ReadLn(arr[i]);

 end;

 for i := 1 to n do

 begin

   if arr[i] >= 0 then

     sum += arr[i]

   else

     multiply *= arr[i];

 end;

 WriteLn('Сумма положительных чисел: ', sum);

 Write('Произведение отрицательных чисел: ', multiply);

end.