Посчитать построчно произведение отрицательных элементов

A=randint(4,5,[-10,10]) 
i=1 
j=1 
while j<=5 
    if A(i,j)<0 
       S=A(i,j)*S 
    end 
    j=j+1 
end

A=randint(4,5,[-10,10]) 
i=1 
j=1 
while j<=5 
    if A(i,j)<0 
      S=A(i,j)
      S1=S=A(i,j)*S
    end 
    j=j+1 
end
i=2
j=1 
while j<=5 
    if A(i,j)<0 
      S2=A(i,j)
      S3=S=A(i,j)*S
    end 
    j=j+1 
end
j=1 
while j<=5 
    if A(i,j)<0 
      S4=A(i,j)
      S5=S=A(i,j)*S
    end 
    j=j+1 
end
j=1 
while j<=5 
    if A(i,j)<0 
      S6=A(i,j)
      S7=S=A(i,j)*S
    end 
    j=j+1 
end
B=[S1,S3,S5,S7]

clear all
clc
 
A=randint(4,5,[-10,10]) 
 
for i = 1:size(A,1) % пробегаем по строкам
    b = 1; % объявляем счетчик произведения
    for j = 1:size(A,2)
        if A(i,j)<0
            b = b*A(i,j);
        end
    end
    B(i) = b;    
end
B % отображаем результат

clear all
clc
 
A=randint(4,5,[-10,10]) 
 
for i = 1:size(A,1) % пробегаем по строкам
    a = A(i,:); % сохраняем строку в массивчик
    B(i) = prod( a(a<0) ); % произведение отрицательных элементов строки
end
B % отображаем результат