Developing.ru

Дана матрица A(n,m) действительных чисел. Получить вектор, элементами которого будут номера последних отрицательных элементов строк матрицы.

for i:=1 to n do
for j:=1 to m do
if A[i,j]<0 then
begin B:=j; break; end;

если я правильно понял условия задачи, цикл который перебирает элементы внутри строки нужно сделать downto

Тьфу, заработался! Esgal, вы совершенно правы!
for i:=1 to n do
for j:=m downto 1 do
if A[i,j]<0 then
begin B:=j; break; end;