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.
from random import randrange
sum = 0
for i in range(4):
sum += randrange(1, 3)
print(sum)