1 program elm2;
2 uses mtx09;
3 var
4 a: mtx;
5 begin
6 zer(a,2,3); // a = zeros(2,3)
7 elm(dia(a),1.0);
8 mwr(a);
9 eye(a,2,3); // a = eye(2,3)
10 mwr(a);
11 elm(col(a,col(a)),-1.0); // a(:,$)=-1
12 mwr(a)
13 end.
14 {
15 1 0 0
16 0 1 0
17
18 1 0 0
19 0 1 0
20
21 1 0 -1
22 0 1 -1
23
24 }