Курсовая работа: Стійкість системи лінійних алгебраїчних рівнянь

mas=array[1..10] of real;

var n,i,j,k,l,g,v:integer;

p,s:mas;

a,b,c:matr;

stiykist:real;

procedure mnogmatr(a,b:matr;n:integer; var c:matr);

begin

for i:=1 to n do

for j:=1 to n do

c[i,j]:=0;

for k:=1 to n do

for i:=1 to n do

for j:=1 to n do

begin

c[k,i]:= c[k,i]+a[j,i]*b[k,j];

end;

end;

begin

writeln('vvedit rozmirnict matrici n=');

readln(n);

writeln('vvedit koeficienti matrici');

for i:=1 to n do

for j:=1 to n do

begin

write('a[',i,',',j,']=');

readln(a[i,j]);

end;

for i:=1 to n do

for j:=1 to n do