і присвоєння} [1,1]: = 1; a [1,2]: = 2; {a [1,3]: = 4; a [1,4]: = 0;} [2,1]: = 3; a [2,2]: = 4; {a [2,3]: = 4; a [2,4]: = 5; [3,1]: = 4; a [3,2]: = 5; a [3,3]: = 6; a [3,4]: = 2; [4,1]: = 0; a [4,2]: = - 2; a [4,3]: = 3; a [4,4]: = -4; [1,1]: = 5; a [1,2]: = 7; a [1,3]: = 7; a [1,4]: = 1; [2,1]: = 6; a [2,2]: = 6; a [2,3]: = 3; a [2,4]: = 4 ; [3,1]: = 5; a [3,2]: = 1; a [3,3]: = 1; a [3,4]: = 1; [4,1]: = 3; a [4,2]: = 3; a [4,3]: = 3; a [4,4]: = 3; i: = 1 to n doj: = 1 to n do a0 [i, j]: = a [i, j]; ('Початкова матриця:'); np: = 0;
PrintMatr (a, b, n, 6,1); i: = 1 to n doj: = i +1 to n do AddStrings (a, b, i, j, sign (a [ i, i]) * sign (a [j, i]));
{PrintMatr (a, b, n, 6,1);} (abs (a [i, i])> eps) then (a, b, i, 1/a [i , i]); j: = i +1 to n do AddStrings (a, b, j, i,-a [j, i]);
{PrintMatr (a, b, n, 6,1);} else
writeln ('Зворотною матриці не існує.');
halt;;
{writeln ('Зворотний хід:');} (a [n, n]> eps) theni: = n downto 1 do for j: = 1 to i-1 do (a, b, j, i,-a [j, i]);;
{PrintMatr (a, b, n, 8,4);} else writeln ('Зворотною матриці не існує.');
MultMatr (a0, b, a); ('Початкова матриця. Зворотний до неї матриця.:');
PrintMatr (a0, b, n, 7,3);
writeln ('Перевірка: повинна бути одинична матриця.');
PrintMatr (a, a, n, 7,3);.
