Второе задание. Тут отмечу, что об не напортачить в методичке — и речи быть не может! Дают конкретные матрицы с n=3 и тут же заявляют, что n=8. Или нужно сгенерить свои матрицы? Как всегда, мутно.
Код:
Const
n=3;
m=4;
Var
A:Array[1..n,1..m] of Real;
B:Array[1..m] of Real;
D:Array[1..n] of Real;
i,k:Integer;
Begin
A[1,1]:= 3.8; A[1,2]:= 0.1; A[1,3]:= 1.2; A[1,4]:= 2.4;
A[2,1]:= 3.8; A[2,2]:=-1.0; A[2,3]:= 3.1; A[2,4]:= 1.5;
A[3,1]:=-1.6; A[3,2]:= 0.4; A[3,3]:= 3.0; A[3,4]:= 1.0;
B[1]:= 1.0;
B[2]:= 3.2;
B[3]:= 2.0;
B[4]:=-2.1;
for i:=1 to n do D[i]:=0;
for i:=1 to n do
for k:=1 to m do
D[i]:=D[i]+A[i,k]*B[k];
Writeln('Result:');
for i:=1 to n do
Writeln('D[',i,'] = ',D[i]:7:3);
Readln
End.