проблема с массивом

[kommunist]

Здраствуйте товарищи. у меня возникла проблема с решением задачи:
надо заполнить массив случайными числами 3х4, вычислить и вывести максимальные и минимальные элементы каждой строки и поставить их на место первого и последнего элемента соответственно. Как раз расставить их на места у меня и не получилось, подскажите как сделать!

program matrica;
uses    crt;
const   n = 3;
        m = 4;
type    matr = array [1..n,1..m] of integer;
var     a:matr;
        i:integer;
        j:integer;
        max,min:integer;
begin
        clrscr;
        randomize;
        writeln;
        writeln('ishodnaya matrica:');
        writeln;
        for i:= 1 to n do
begin
        for j:= 1 to m do
begin
        a[i,j]:=random(10);
        write(a[i,j]:2, ' ');
end;
        writeln;

end;

         writeln('maksimalnie chisla strok');
        for i:= 1 to n do
begin
        max:=a[i,1];
        for j:= 2 to m do
begin
        if max < a[i,j]
        then
        max:=a[i,j];
end;
        write(max, ' ');
end;
        writeln;
        writeln('minimalnie chisla strok');
        for i:= 1 to n do
begin
        min:=a[i,1];
        for j:= 2 to m do
        if min > a[i,j]
        then
        min:=a[i,j];
        write(min, ' ');
end;
end.

Заранее всех благадарю!
С уважением kommunist.

[_Dmitry]

writeln('maksimalnie chisla strok');
for i:= 1 to n do
  begin
    max:=a[i,1];
    for j:= 2 to m do
      if max < a[i,j] then max:=a[i,j];
    write(max, ' ');
    a[i,m]:=max;
  end;

Ну, и минимум аналогично, товарищ.

[puporev]

Мне кажется, что это какая-то простая задача для начинающих и ее не надо решать в общем виде. Всего три строки. В каждой найти min и max, а потом a[i,1]:=max(i); a[i,4]:=min(i);Вывести max(a[1]),min(a[1]) и т.д.. Потом вывести отремонтированный массив.

[kommunist]

to puporev
спасибо,но
вообще у меня не 3 строки а гораздо больше, это я сейчас делаю 3*4
что бы легко было программу в работе.

[kommunist]

уважаемый _Dmitry спасибо вам за подсказку я сделал все как вы порекомендовали но, к моему глубокому сожелению программа работает но ни так как надо (выводит нужную матрицу с последним столбцом состоящий из максимальных элементов, а вот первый столбик не такой какой нужен, вместо минимальных элементов стоят совсем другие числа)
вот здесь все показано:

[_Dmitry]

Немного поправил

program matrica;
uses    crt;
const   n = 3;
        m = 4;
type    matr = array [1..n,1..m] of integer;
var     a:matr;
        i:integer;
        j:integer;
        max,min:integer;
begin
        clrscr;
        randomize;
        writeln;
        writeln('ishodnaya matrica:');
        writeln;
        for i:= 1 to n do
          begin
            for j:= 1 to m do
              begin
                a[i,j]:=random(10);
                write(a[i,j]:3);
              end;
            writeln;
          end;

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

  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:3);
      writeln;
    end;
 readln;
end.

[kommunist]

огромнейшее спасибо тебе _Dmitry