f1 me -)
3. Знайти визначник матриці p[3*3] за допомогою розкладання за елементами будь-якого рядка або стовпчика.
program a1;
uses wincrt;
var x: array[1..3,1..3] of real;
x1,x2,x3:array[1..2,1..2] of real;
i,j,i1,i2,i3,j1,j2,j3: integer; d:real;
begin
writeln('Введите матрицу А(3*3)');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
read(x[i,j]);
end;
end;
writeln;
writeln('Матрица А=');
i:=2;
for i1:=1 to 2 do
begin
j:=2;
for j1:=1 to 2 do
begin
x1[i1,j1]:=x[i,j];
write(x1[i1,j1]:1:0,' ');
j:=j+1;
end;
writeln;
i:=i+1;
end;
writeln('Матрица В=');
i:=2;
for i2:=1 to 2 do
begin
j:=1;
for j2:=1 to 2 do
begin
x2[i2,j2]:=x[i,j];
write(x2[i2,j2]:1:0,' ');
j:=j+2;
end;
writeln;
i:=i+1;
end;
writeln('Матрица С=');
i:=2;
for i3:=1 to 2 do
begin
j:=1;
for j3:=1 to 2 do
begin
x3[i3,j3]:=x[i,j];
write(x3[i3,j3]:1:0,' ');
j:=j+1;
end;
writeln;
i:=i+1;
end;
writeln('Вычислим определитель матрицы');
writeln;
d:=x[1,1]*(x1[1,1]*x1[2,2]-x1[1,2]*x1[2,1])-x[1,2]*(x2[1,1]*x2[2,2]-
x2[1,2]*x2[2,1])+x[1,3]*(x3[1,1]*x3[2,2]-x3[1,2]*x3[2,1]);
writeln('d=',d:4:0)
end.