Изменить код...

[Genius-D]

Всем салют) Такая задача: дана матрица NxM, нужно упорядочить строки матрицы по возрастанию сумм их элементов.

Вот есть решение той же задачи, но для столбцов. Вопрос, что нужно переписать в коде, чтобы вместо столбцов она делала тоже самое со строками как по заданию.

const
m=4;
 n=4;
type
massiv = array [1..m+1,1..n] of integer;

var
a:massiv;
 i,j,x,b,u:integer;
 flag:boolean;

begin

  randomize; //Генератор случайных чисел
for I := 1 to m do //Заполнение матрицы случайными числами от -50 до 50
for j := 1 to n do

  begin

    a[i,j]:= random(100)-50;
end;
for i := 1 to m do //Вывод полученной матрицы на экран
begin
for j := 1 to n do
write(a[i,j]:5);
writeln;
  end;
 writeln;
 x:=0;
  for j := 1 to n do

  begin

    for I := 1 to m do
 x:=x+a[i,j];//Подсчет сумм элементов столбцов и запись результата в последнюю строку массива
 a[m+1,j]:=x;
x:=0;

  end;

  for I := 1 to n do //Вывод полученных значений
write(a[m+1,i]:5);
 writeln;

   repeat

     Flag:=False;
for j := 1 to n-1 do

// если текущий больше следующего

     if a[m+1,j] > a[m+1,j+1] then // меняем их местами:
for b:=1 to m+1 do

     begin

       x := a[b,j];
 a[b,j] :=a[b,j+1];
a[b,j+1] := x;
Flag:=True

     End;

  Until Not Flag;
writeln;
for i := 1 to m do //Вывод полученной матрицы на экран

  begin

    for j := 1 to n do
 write(a[i,j]:5);
writeln;

  end;

  writeln;
for I := 1 to n do //Вывод полученных значений
write(a[m+1,i]:5);
 writeln;
 readln;
End.