1
program
sub_rap;
2
uses
mtx09;
3
var
r, a: mtx;
4
begin
5
tra;
6
equ(a,
'1,2,3;4,5,6'
);
7
sub(r,a,
true
);
8
sub(r,a,
false
)
9
end
.
10
{
11
# equ [2,3]
12
1 2 3
13
4 5 6
14
15
# sub [1,3] [2,3]
16
-5 -7 -9
17
18
# sub [2,1] [2,3]
19
-6
20
-15
21
22
}