Основной блок исправляем:
Код
begin
For i := 1 To size Do
For j := 1 To size Do
a[i, j] := Random(20);
matrixPrint(a);
for i := 1 to n do
begin
write('p[', i, '] = '); readln(p[i])
end;
For i := 1 To n Do
Begin
matrixPower(T, a, n - i);
matrixScale(T, T, p[i]);
matrixAdd(Res, Res, T)
End;
matrixPrint(Res)
end.
а описание:
Код
Const
n = 3;
p: Array[1 .. n] Of Real =
(1.0, -2.0, 3.0);
меняем на:
Код
Const
n = 3;
Var
p: Array[1 .. n] Of Real;
И все...