Матрицы и массивы Pascal

[lyubashka21]

Помогите решить задачу:
Дана матрица nxm. Получить массив b1,..,bn, где bi - сумма элементов, расположенных за первым отрицательным элементом i-той строки

[Mad_Cat]

for i:=1 to n do
begin
b[i]:=0;
j:=1;
while (a[i,j]>0) and (j<=m) do inc(j);
for k:=j+1 to m do
b[i]:=b[i]+a[i,k];
end;