Представлю два варианта:
- С использованием PascalABC.NET
- С использованием обычного Pascal
Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)
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;
1) 157 х 99 = 15543 (пикселей) - всего
2) 15543 х 4 = 62172 (бита)
Ответ :
в ) отделяет один раздел програми от другого...