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