Diman680
Uses crt; var m: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. Вроде начал, тут еще надо гад минором подумать.
0 votes Thanks 0
affeqt
Проще тогда уж будет расписать нахождение детерминанта как результат взаимодействия нескольких базовых процедур, описанных еще до проги. Чесслово, проще и понятнее раза в 2-3 будет.
Answers & Comments
crt;
var
m: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.
Вроде начал, тут еще надо гад минором подумать.