Uses crt; const n=4; m=4; var a: array [1..n,1..m] of integer; b: array [1..100] of integer; x,y,z,max,min,k: integer; begin z:=1; for x:=1 to n do begin for y:=1 to m do begin a[x,y]:=random(20); write(a[x,y]:3); end; writeln; end; for y:=1 to m do begin max:=a[1,y]; for x:=1 to n do if a[x,y]>max then max:=a[x,y]; b[z]:=max; inc(z); <span> end; </span> min:=b[1]; k:=z-1; for z:=1 to n do if b[z]<min then min:=b[z]; writeln; writeln(min); <span>end.