Помогите составить программу по матрицам

[poiuyt]

1.   Дана действительная матрица размера nxm. Определить числа b1…bn, равные  наименьшим значениям элементов строк.
 не знаю как сделать потому что не проходил
 помогите составить программу

[poiuyt]

помогите пожалуйста

[Данила]

делаете цикл от 1 до м ,в нем вложенный от 1 до н. 1ый элемнт строки делаете миниумом..далее если при пробеге строки итый элемент меньше минимума - делает его минимумо

[poiuyt]

program prim;
var n , m , i , j , min : integer;
x: array [1..n , 1..m] of integer;
begin
writeln('n,m');
read(n,m);
for i:=1 to n do for j:=1 to m do read(x[i,j]);
min:=x[1,1];
for i:=1 to n do for j:=1 to m do if i<min then min:=  а что тут дальше

[Данила]

for i:=1 to n do
  min:=x[i,1];
  for j:=1 to m do begin
  if x[i,j]<min then min:=x[i,j]
  end;
  b[j]:=min;
 
 

[poiuyt]

program prim;
var n , m , i , j , min : integer;
x: array [1..n , 1..m] of integer;
begin
writeln('n,m');
read(n,m);
for i:=1 to n do for j:=1 to m do read(x[i,j]);
for i:=1 to n do
  min:=x[i,1];
  for j:=1 to m do begin
  if x[i,j]<min then min:=x[i,j]
  end;
  b[j]:=min;
end.
конечный вид

[poiuyt]

но если выводить минимум он выводит последнее введенное число

[Данила]

попробуйте в конце

Код: [Выделить]

b[i]:=min; косяк  в этом видимо