Упорядочить по возрастанию сумм элементов строк

[Evgenii_95]

Упорядочить по возрастанию сумм элементов строк

const n=5;m=5;
var a:array[1..6,1..6] of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
s:=s+a[i,j]
end;
a[i,m+1]:=s;
end;
writeln('Ishodnii massiv');
writeln('Summa':(m*4+12));
for i:=1 to n do
begin
for j:=1 to m+1 do
if j=m+1 then write(a[i,j]:8)
else write(a[i,j]:4);
writeln;
end;
end.

[Stilet]

Предлагаю так:
Описываешь массив с дополнительной колонкой для сумм (это у тебя есть, но аккуратнее надо)

var a:array[1..n,1..m+1] of integer;

Еще дописываешь функцию обмена строк между собой

procedure xchg(q,w:integer); var i,k:integer;
begin
 for i:=1 to m+1 do begin k:=a[q,i];a[q,i]:=a[w,i];a[w,i]:=k; end;
end;

Далее наполняем массив, это ты сделал. И сортируем:

for i:=1 to n do begin
 for j:=1 to m do begin
   if a[i,m+1]<a[j,m+1] then xchg(i,j);
 end;
end;

Примерно так.