Матрица!

[Виталик124]

Дана матрица! Найти максимальный элемент в каждой строке, вывести вектором.

[BDA]

Знаете, как найти максимальный элемент в одномерном массиве? Если да, то просто производите поиск в цикле по каждой строке (строка ведь является одномерным массивом) и выводите найденное число.

[Виталик124]

я не могу понять, как производить поиск по каждой строке!?

[Stilet]

как производить поиск по каждой строке!?

Покажешь код ввода матрицы?

[Виталик124]

begin
randomize;
writeln('vvedite_kolichestvo_strok');
readln(n);
writeln('vvedite_kolichestvo_stolbcov');
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10);
write('  ',a[i,j]);
end;
writeln;
end;

[Stilet]

Вотъ.
А нахождение максимума:

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

Где b:array[1..m] of Чего-то

[BDA]

for i := 1 to n do
begin
  max := a[i, 1];
  for j := 2 to m do
    if a[i, j] > ...

end;

[Виталик124]

program max_elementi_v_strokah;

var
  max, f, l, n, m, i, j: integer;
  a: array[1..100] of array[1..100] of integer;
  b: array[0..100] of integer;

begin
  randomize;
  writeln('vvedite_kolichestvo_strok');
  readln(n);
  writeln('vvedite_kolichestvo_stolbcov');
  readln(m);
  writeln('MATRICA : ');
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      a[i, j] := random(10);
      write('  ', a[i, j]);
    end;
    writeln;
  end;
  writeln;
  l := 1;
  for i := 1 to n do 
  begin
    max := a[i, 1];
    for j := 2 to m do 
    begin
      if a[i, j] > max then
        max := a[i, j];
    end;
    writeln('STROKA ', i, ' MAX_ELEMENT ', max);
    b[l] := max;
    l := l + 1;
  end;
  dec(l);
  writeln;
  writeln('vektor_iz_MAX_elementov_strok : ');
  for f := 1 to l do 
    write('  ', b[f]);
end.

НО! я не понял эту строку : max := a[i, 1]; Почему i не = 1? А всё остальное ясно! Спасибо!

[BDA]

 for i := 1 to n do 
  begin
    b[i] := a[i, 1];
    for j := 2 to m do 
    begin
      if a[i, j] > b[i] then
        b[i] := a[i, j];
    end;
    writeln('STROKA ', i, ' MAX_ELEMENT ', b[i]);
  end;
  writeln;
  writeln('vektor_iz_MAX_elementov_strok : ');
  for f := 1 to n do 
    write('  ', b[f]);

Первый индекс - номер строки, второй - столбца. Рассматриваем i-ю строку. Предполагаем, что значение максимального элемента равно первому элементу строки (нужно же задать какое-нибудь начальное значение).

[Виталик124]

Агаа! Всё! Пасиб!