Задание:
Помогите, пожалуйста, написать детерминант матрицы.
Решение:
Uses crt; varm: array[1… 100,1… 100] of integer; opr,n,i,j: integer; begin randomize; writeln ('Введите размерность'); readln (n); for i: =1 to n do for j: =1 to n do m[i,j]: =random (2*20+1) -20; for i: =1 to n do for j: =1 to n do begin write (m[i,j]); if j=n then writeln; end; i: =1; for j: =1 to n do opr: =opr+(exp (ln (-1)*(1+j)*m[i,j]*минор); writeln (opr); end. Вроде начал, тут еще надо гад минором подумать.
Знаете другой ответ?