напишите код для решения матрицы пожалуста

[Dina2360]

Зная матрицу А размерности MxN, получить вектор B(B1,B2,...,Bm) из минимальных элементов строк.

[cat.felix]

for i := 1 to m do
begin
    b[i] := a[i,1];
    for j := 2 to n do
        if b[i] > a[i,j] then b[i] := a[i,j]
end;