1
program
equrxa;
2
uses
mtx09;
3
var
a,b:mtx;
4
begin
5
tra;
6
equ(a,
'1 2 3; 4 5 6'
);
7
equ(b,
1.0
/
3.0
,a)
8
end
.
9
{
10
# equ [2,3]
11
1 2 3
12
4 5 6
13
14
# equ [2,3] [2,3]
15
0.333333 0.333333 0.333333
16
0.333333 0.333333 0.333333
17
18
}