uses crt;
var n,i,j,l,sm,mn:integer;
a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(9)+1;
write(a[i,j]:2,' ');
end;
writeln;
end;
mn:=a[1,1];
for l:=1 to 2*n-1 do//количество диагоналей
begin
if l<=n then//выше побочной, если сама побочная не нужна, то l<n
begin
sm:=0;
for i:=1 to l do
for j:=1 to l do
if (j=l-i+1)then sm:=sm+a[i,j];
writeln('Сумма диагонали ',l,'=',sm);
if sm<mn then mn:=sm;
end
else if l>n then//ниже побочной
begin
sm:=0;
for i:=l-n+1 to n do
for j:=l-n+1 to n do
if (j=l-i+1) then sm:=sm+a[i,j];
writeln('Сумма диагонали ',l,'=',sm);
if sm<mn then mn:=sm;
end;
end;
writeln;
write('Минимальная сумма=',mn);
readln
end.