Программа на языке Паскаль. Дана матрица размера…

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); end; min: =b[1]; k: =z-1; for z: =1 to n do if b[z]