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