Дана матрица. Упорядочить её строки по неубыванию сумм эл-ов строк.
program m1;
const
n = 10; // размерность матрицы 10х10
var
matr : array[1..n, 1..n] of integer; // матрица
summ : array[1..n] of integer; // суммы строк
i, j : integer; // счетчики
k, r : integer;
begin
randomize;
writeln('Матрица с указанием сумм строк.');
for i := 1 to n do
begin
summ[i] := 0;
for j := 1 to n do
begin
matr[i, j] := random(100); // заполняем матрицу случ. числами от 0 до 100
write(matr[i, j], ' '); // выводим
summ[i] := summ[i] + matr[i, j]; // считаем сумму строки
end;
{отображаем сумму строки}
writeln(' => ',summ[i]);
end;
writeln;
{сортируем строки матрицы по возрастанию сумм их строк}
for i := 1 to n-1 do
for j := i + 1 to n do
if summ[j] < summ[i] then
begin
for k := 1 to n do
begin
r := matr[i, k];
matr[i, k] := matr[j, k];
matr[j, k] := r;
end;
r := summ[i];
summ[i] := summ[j];
summ[j] := r;
end;
writeln('Матрица после сортировки.');
for i := 1 to n do
begin
for j := 1 to n do
write(matr[i, j], ' ');
writeln('=>', summ[i]);
end;
readln;
end.