Матрица Опции

[test100]

Помогите пожалуйста решить. :molitva:

Матрица n на m элементов

В каждой строке заменить максимальный элемент на сумму элементов соответствующей строки.

[klem4]

у меня все работает :

uses crt;
const n=2;
      m=3;

var
   x:array[1..n,1..m] of integer;
   i,j,s,nmax:integer;

begin
   clrscr;
   randomize;
   for i:=1 to n do
    begin
       writeln;
       for j:=1 to m do
        begin
           x[i,j]:=random(11);
           write(x[i,j]:2,' ');
        end;
    end;

   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to m do
        s:=s+x[i,j];
       nmax:=1;
       for j:=2 to m do
        if x[i,j]>x[i,nmax] then
         nmax:=j;
       x[i,nmax]:=s;
   end;

   WRITELN;
   for i:=1 to n do
    begin
       writeln;
       for j:=1 to m do
        write(x[i,j]:2,' ');
    end;

   readln;
end.