Ольга111

вычислить матрицу М размера n на n,еслиA,B,C-заданные матрицы размерности n на n;x,y,z-заданные векторы размерности n,/А/-определитель матрицы а,/х/-норма вектора х;принять n=3,отдельные элементы матричной алгебры оформить в виде подпрограмм(это типа умножения двух матриц,умножение матрицы на число и т.д).
Пожалуйста.......)))
У меня что то на подобие этого....program laba11;
const n=3;
type mas=array[1..n,1..n] of integer;
masv=array[1..n] of integer;
var a,b,e,l,c,d,t:mas;
x,y,z:masv;
k,i,j:integer;
procedure A1 (var a:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
procedure A2 (var a:mas);
var i,j,k:integer;
begin
for k:=1 to n-1 do
for i:=k+1 to n do
for j:=1 downto k+1 do
a[i,j]:=a[k,j]*a[i,k]-a[i,j]*a[k,k];
writeln(a[i,j]:4);
writeln;
end;
for i=1 to n do
for j:=1 to n do
procedure A3 (var b:mas);
var i,j,k:integer;
begin
e[i,j]:=0;
for k:=1 to n do
e[i,j]:=b[i,k]*b[k,j]+e[i,j];
end;
for i:=1 to n do
for j:=1 to n do
procedure A4( var b:mas);
var i,j,k:integer;
begin
l[i,j]:=0;
for k:=1 to n do
l[i,j]:=4*e[i,j];
end;
for i:=1 to n do
for j:=1 to n do
procedure A5 (var x:masv);
var i:integer;
begin
write('x[',i,']=');
readln(x[i]);
end;

Vladimir_S

Так как ее вычислять-то? Где формулировка самой задачи? Что-то я не увидел. А "типа умножения" - это не разговор.