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