var
d : array[1..4,1..4] of integer;
p : int64 := 1;
begin
for var i := 1 to 4 do begin
for var j := 1 to 4 do begin
d[i,j] := random(-15, 10);
if d[i,j] < 0 then p *= d[i,j];
end;
end;
writeln('произведение всех отрицательных значений массива: ', p);
end.
тип int64 использовался по следующей причине:
у нас массив 4х4 то есть 16 элементов
допустим случилось страшное и все 16 элементов равны -15
это -15^16 (минус 15 в 16 степени) и это равно 6568408355712890625 что заметно превышает диапазон значений типа integer
и да, прочитать предложенное тобой имя массива я не осилил, поэтому назвал его просто d