Двумерный массив. Найти среднее арифметическое каждой строки и поместить на место наибольшего (Паскаль)

[Золушка]

Дан двумерный массив. Найти среднее арифметическое из каждой строки, и это значение поместить на место наибольшего элемента из этой строки.

По условию задачи у меня найдены среднее арифметическое и наибольший элемент в каждой строке. Куда вложить sred := max ("значение сред.арифмет. поместить на место наибольшего элемента")?

Нужна маленькая помощь.

[Золушка]

Мой листинг.

begin
     clrscr;
     for i:=1 to n do
     for j:=1 to m do
     begin
           write ('a[',i,',',j,']=');
           readln (a[i,j]);
     end;
     clrscr;
     writeln ('Введённая матрица:');
     for i:=1 to n do
     begin for j:=1 to m do
           write (a[i,j]:4);
     end;
writeln;
for i := 1 to m do
begin
sred :=0;
for j:=1 to n do
sred:= sred+a[i,j];
sred := sred div m;
writeln ('Среднее арифметическое = ', sred);
end;
for i := 1 to m do
 begin
 max := a[1,1];
for j := 1 to n do
begin
if a[i, j]> max then begin
max := a[i,j];
end;
writeln ('Максимум = ',max);
end;
writeln;
 writeln ('Результат: ');
     for i:=1 to n do
     begin for j:=1 to m do
           write (a[i,j]:4);
     end;
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

uses CRT;
const
  n = 3;
  m = 5;

var
  i, j : integer;
  a : array[1..n, 1..m] of integer;
  MaxIndex : integer;
  Sred : integer;

begin
  clrscr;
  randomize;
  for i := 1 to n do
    for j := 1 to m do
    begin
      a[i,j] := Random(10);
      {write('a[', i, ',', j, ']=');
      readln(a[i, j]);}
    end;
  clrscr;
  writeln('Введённая матрица:');
  for i := 1 to n do
  begin 
    for j := 1 to m do
      write(a[i, j]: 4);
    writeln;
  end;
  WriteLn;
  for i := 1 to n do
  begin
    sred := 0;
    MaxIndex := 1;
    for j := 1 to m do begin
      sred := sred + a[i, j];
      if a[i,j] > a[i, MaxIndex] then MaxIndex := j;
    end;
    sred := sred div m;
    writeln('Среднее арифметическое по ',i:1,'-й строке = ', sred);
    writeln('Максимум в ',i:1,'-й строке = ', a[i, MaxIndex]);

    {заменим максимальный элемент (его индекс в MaxIndex)
       средним значением}
    a[i, MaxIndex] :=  Sred;

  end;
    writeln;
    writeln('Результирующая матрица: ');
    for i := 1 to n do
    begin 
       for j := 1 to m do
         write(a[i, j]: 4);
       WriteLn;
    end;
    readln;
  end.

чтобы матрица вводилась уберите
Randomize;
строчку a[i,j] := Random(10);
и расскомментируйте WriteLn.. Readln(a...)

[phomm]

оба цикла надо объединить :
вместо

for i := 1 to m do
begin
sred :=0;
for j:=1 to n do
sred:= sred+a[i,j];
sred := sred div m;
writeln ('Среднее арифметическое = ', sred);
end;
for i := 1 to m do
 begin
 max := a[1,1];
for j := 1 to n do
begin
if a[i, j]> max then begin
max := a[i,j];
end;
writeln ('Максимум = ',max);
end;

надо:

for i := 1 to n do
begin
sred :=0;
max := 0;
for j:=1 to m 
  do begin
  sred:= sred+a[i,j];
  if a[i, j]> max
  then begin
    max := a[i,j];
    maxid := j;
  end;
sred := sred div m;
a[i,maxid] := sred;
writeln ('Среднее арифметическое = ', sred);
writeln ('Максимум = ',max);
end;

maxid ещё объявить
и обратить внимание на индексацию двумерного массива !!!
а то у вас в одном месте циклы for i := 1 to n for j := 1 to m , а в другом наоборот, запомните лучше всегда "внешний" цикл делать по строкам(i), а "внутренний"/"вложенный" по столбцам(j) и тогда индексация массива будет a[i,j] , потому что массивы индексируются сперва по строкам а потом по столбцам

[Золушка]

Спасибо большое!