var a:array[1..5,1..5] of integer; i,j,m,n,min:integer; begin randomize; for i:=1 to 5 do begin for j:=1 to 5 do a[i,j]:=random(20); end; writeln('исходная мтарица'); for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j],' '); writeln; end; min:= a[5,5]; for i := 1 to 5 do for j := 1 to 5 do if i+j = n+1 then begin if a[i,j] < min then min:= a[i,j] else if j = 5 then if a[i, j - 1] < min then min:= a[i, j-1] else if i = 5 then if a[i - 1, j] < min then min:= a[i - 1, j] else if a[i, j - 1] < min then min:= a[i, j-1] else if a[i - 1, j] < min then min:= a[i - 1, j]; end; write(min); end.
a:array[1..5,1..5] of integer;
i,j,m,n,min:integer;
begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do
a[i,j]:=random(20);
end;
writeln('исходная мтарица');
for i:=1 to 5 do begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln;
end;
min:= a[5,5];
for i := 1 to 5 do
for j := 1 to 5 do
if i+j = n+1 then
begin
if a[i,j] < min then min:= a[i,j]
else
if j = 5 then if a[i, j - 1] < min then min:= a[i, j-1]
else
if i = 5 then if a[i - 1, j] < min then min:= a[i - 1, j]
else
if a[i, j - 1] < min then min:= a[i, j-1]
else
if a[i - 1, j] < min then min:= a[i - 1, j];
end;
write(min);
end.