Я не смог найти решение этой задачи, но есть примеры программ, которые могут помочь в решении некоторых её частей:
Для нахождения произведения отрицательных элементов массива А(N). 25 Пример программы на языке Pascal: 2
const k=100;
var i,s,n:integer;
a:array [1..k] of integer;
begin
readln;
s:=1;
for i:=1 to n do
begin
readln(a);
if a<0 then s:=s*a;
end;
if s=1 then writeln('Отрицательных элементов нет'
else writeln('Произведение отрицательных элементов = ',s);
end.