Нужно добавить в программу процедуру: Сортировка строк матрицы по возрастанию суммы их элементов
uses crt;
const n=10;
type mtr=array[0..n+1,0..n+1] of integer;
procedure lok_min(a:mtr;var m:byte);
var i,j,k,p,q:byte;
begin
for i:=0 to n+1 do
begin
a[0,i]:=maxint;
a[n+1,i]:=maxint;
a[i,0]:=maxint;
a[i,n+1]:=maxint
end;
m:=0;
for i:=1 to n do
for j:=1 to n do
begin
q:=0;
for k:=i-1 to i+1 do
for p:=j-1 to j+1 do
if a[k,p]>a[i,j] then inc(q);
if q=8 then inc(m);
end;
writeln('Количество локальных минимумов= ',m);
end;
function sum_mod(a:mtr):integer;
var i,j:byte;
begin
result:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
result:=result+abs(a[i,j])
end;
var a: mtr;
i,j,k:byte;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-5+random(11);
write(a[i,j]:3);
end;
writeln;
end;
lok_min(a,k);
writeln('Сумма модулей выше главной диагонали=',sum_mod(a))
end.