Program z1; Var a: array [1..100,1..100] of integer; i,j,n,m,min,t:integer;Begin write('Введите кол-во столбцов - '); readln(n); write('Введите кол-во строк - '); readln(m); randomize; for j:=1 to m do begin for i:=1 to n do begin a[i][j]:=random(9)-0; write (a[i][j],' '); end; writeln; end; min:=a[1][4]; t:=1; for i:=2 to n do begin if (a[i][4]End.