Написать программу вычисления матриц D:=(A+B)*C.

[vepranec]

Даны квадратичные матрицы A(NxN), B(NxN), C(NxN). Написать программу вычисления матриц D:=(A+B)*C. С помощью процедур

[ViktorR]

И ...
Что получается?

Объяви глобальную константу N

const N =10;

и опиши тип matr

type matr = array[1..N,1..N] of <указать тип элементов>;

Процедуры можно оформить так, например:

procedure Add(A:matr; var B: matr);
var i,j : integer;
begin
<Цикл 1>
   <Цикл 2>
       B[i,j] := B[i,j] + A[i,j];
end;

Аналогично опиши процедуру умножения.
Тут посложнее, так как каждый элемент новой матрицы - сумма произведений элементов строки одной матрицы на элементы столбцов другой. Но справочник в руки и ...


Вроде должно получиться ...