uses crt;
var a:array[1..20,1..20]of integer;
n,i,j,c,sum,k,min,l,p:integer;
begin
clrscr;
write('Vvedite razmernost matricy n= ');readln(n);
randomize;
Writeln('Matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20)-9;
write(a[i,j]:4);
end;
writeln;
end;
min:=abs(a[n,1]);
for l:=1 to n-1 do
begin
sum:=0;
for i:=n-l+1 to n do
for j:=1 to l do
if j=i-n+l then sum:=sum+abs(a[i,j]);
writeln('Сумма ',l,'=',sum);
if sum<min then min:=sum;
end;
writeln('Минимальная сумма=',min);
readln
end.