Const N = 10; Var A:array[1..N,1..N] of integer; i,j,M:integer; Begin Randomize; For i:= 1 to N do Begin M:=1; For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); if A[i,M]<A[i,j] then M:=j; End; WriteLn(' Max = ',A[i,M]); End; WriteLn('Минимумы:'); For j:= 1 to N do Begin M:=1; For i:= 1 to N do if A[i,j]<A[M,j] then M:=i; Write(A[M,j]:3,' '); End; End.