Question

Помогите пожалуйста написать программу в Pascal Даны прямоугольные матрицы А и В размером mxn каждая. Найти матрицу C , каждый элемент которой равен среднеарифметическому значению соответствующих элементов матриц и . Транспонировать полученную матрицу.

Answer 1

const

 m = 2;

 n = 3;

var

 A, B, C: array [0..m - 1,0..n - 1] of real;

 Ct: array [0..n - 1, 0..m - 1] of real;

 i, j: Integer;

begin

   // заполнение матрицы С среднеарифметическими значениями А и В

   for i := 0 to m - 1 do

     for j := 0 to n - 1 do

       C [i, j] := (A [i, j] + B [i, j]) / 2;

   // транспонирование С в Ct

   for i := 0 to m - 1 do

     for j := 0 to n - 1 do

       Ct [j, i] := C [i, j];

end;