26 lines
489 B
Plaintext
26 lines
489 B
Plaintext
var m1:[{1..2, 1..2}] int;
|
|
m1(1,1) = 1; m1(1,2) = 2;
|
|
m1(2,1) = 3; m1(2,2) = 4;
|
|
writeln(m1);
|
|
|
|
var m2:[{1..2, 1..2}] int;
|
|
m2(1,1) = 2; m2(1,2) = 3;
|
|
m2(2,1) = 4; m2(2,2) = 5;
|
|
writeln(m2);
|
|
|
|
var m3 = m1 * m2;
|
|
writeln(m3);
|
|
|
|
var m4:[{1..2, 1..3}] int;
|
|
m4(1, 1) = 1; m4(1, 2) = 2; m4(1, 3) = 3;
|
|
m4(2, 1) = 4; m4(2, 2) = 5; m4(2, 3) = 6;
|
|
writeln(m4);
|
|
|
|
var m5:[{1..3, 1..2}] int;
|
|
m5(1, 1) = 6; m5(1, 2) = -1;
|
|
m5(2, 1) = 3; m5(2, 2) = 2;
|
|
m5(3, 1) = 0; m5(3, 2) = -3;
|
|
writeln(m5);
|
|
|
|
writeln(m4 * m5);
|