Chap 3 Designed Question 2

m = {{1, 1, 1}, {2, 2, 
            3}, {-3, -3, -3}};
Print[MatrixForm[m]];
Print[Det[m]];

Chap 3 Designed Question 12

X = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}};
Print["X=", X // MatrixForm]
Print["Matrix of Minors[X]=", 
        Minors[X] // MatrixForm];
minorXij[i_, 
          j_] := Minors[X][[i, j]];
i = 3; j = 3;
Print["i=", i, " j=", j, " minor of X[i,j]=", 
        minorXij[i, j]];
Print["Det[X]=", Det[X]];