1 program elm3;
2 uses mtx09;
3 var a: mtx;
4 begin
5 tra;
6 zer(a,3,2);
7 elm(a,'-1');
8 mwr(a);
9 elm(a,'10 20');
10 mwr(a);
11 elm(a,'1;2;3');
12 mwr(a)
13 end.
14 {
15 # zer [3,2]
16 0 0
17 0 0
18 0 0
19
20 # elm(mtx,string) [3,2]
21 -1 -1
22 -1 -1
23 -1 -1
24
25 -1 -1
26 -1 -1
27 -1 -1
28
29 # elm(mtx,string) [3,2]
30 10 20
31 10 20
32 10 20
33
34 10 20
35 10 20
36 10 20
37
38 # elm(mtx,string) [3,2]
39 1 1
40 2 2
41 3 3
42
43 1 1
44 2 2
45 3 3
46
47 }