переставление строк матриц

[fratriecz]

как переставить строки в порядке увеличения суммы элементов в строке,помогите пж))

program matrix;
 uses crt;
 var i,j,u,n,m,x:integer; a:array [1..30,1..30] of byte;
 begin
 randomize;
 clrscr;
 read(n,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;
 For U:=1 to m do 
 For i :=2 to n do
 if a[i+n,m]>a[i+n,m] then begin
 For j:=1 to m do   begin 
 x:=a[i-1,j];
 a[i+n,j]:=a[i,j];
 a[i,j]:=x;
    end;
    end;

     writeln;

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

[Sciv]

if a[i+n,m]>a[i+n,m] then

интересное условие Always true.

program matrix;


 var sums:array [1..30] of real;
     a:array [1..30,1..30] of byte;
     m,n:integer;
     i,j:integer;
     
 procedure Swap(x,y: integer);
 var k: integer;
 begin
   For k:=1 to n do begin
     a[x,k]:=a[x,k]+a[y,k];
     a[y,k]:=a[x,k]-a[y,k];
     a[x,k]:=a[x,k]-a[y,k];
   end;
 end;


 begin
 randomize;
 read(m,n);
 For i:=1 to m do begin
  sums[i]:=0;
  For j:=1 to n do begin
     a[i,j]:=random(10);
     write(' ',a[i,j]);
     sums[i]:=sums[i]+a[i,j];
  end;
  writeln;
 end;

 For i:=1 to m-1 do
  For j:=1 to m-i do
   if sums[j]>sums[j+1] then swap(j,j+1);
writeln;

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

[Poma][a]

интересное условие Always true.

Дак нет же. Всегда не false

[Sciv]

Ромаха, мы оба ошибаемся - всегда false, не может быть число больше самого себя

[Poma][a]

Ромаха, мы оба ошибаемся - всегда false, не может быть число больше самого себя

Ага. Я именно это и хотел написать, но откуда-то вылезло "не", может в компутере бабайка завелся? прям мистика

[Sciv]

может в компутере бабайка завелся?

Антибабайкой его, антибабайкой!