Цитата dasha131:
блок const не надо смешивать с блоком var.
Код:  program ABC;
const
R=500;
var
matr1,matr2,matr3,matr4: array[1..R,1..R] of real;
i,j,m,n,p,s,g: integer;
S:real;
Begin
read (g) {размерность матрицы gxg}
for i:=1 to g do
for j:=1 to g do
begin
read(matr1[i,j]);
end;
for m:=1 to g do
for n:=1 to g do
begin
read(matr2[m,n]);
end;
for p:=1 to g do
for s:=1 to g do
begin
read(matr3[p,s]);
end;
»
|
Решение простое, "в лоб" можно конечно улучшить, но работать будет без проблем.
Цитата dasha131:
|
Может поможете дальше с программой? »
|
Посмотри
здесь
И вид общей формулы
тут
Результирующую матрицу получать в 2 этапа. Сначала 1*2, затем получившее*3;
Процедуры и функции проходили? Они бы сейчас очень пригодились.
