program ArrayElements;

const
n = 5; //размер массива

var
arr: array[1..n] of integer; //объявление массива
i, negProd, posSum: integer; //переменные для индекса, произведения и суммы

begin
negProd := 1; //инициализация переменной произведения
posSum := 0; //инициализация переменной суммы

//заполняем массив случайными значениями
for i := 1 to n do
arr[i] := random(20) - 10; //значения от -10 до 10

//находим произведение отрицательных элементов и сумму положительных
for i := 1 to n do
begin
if arr[i] < 0 then
negProd := negProd * arr[i]
else if arr[i] > 0 then
posSum := posSum + arr[i];
end;

writeln('Массив:');
for i := 1 to n do
write(arr[i], ' '); //выводим массив

writeln;
writeln('Произведение отрицательных элементов: ', negProd); //выводим произведение
writeln('Сумма положительных элементов: ', posSum); //выводим сумму

end.