1 {
2 #! /bin/bash
3 ./axs0 "1 2 3; 4 5 6"
4 exit 0
5 }
6 program axs0;
7 uses mtx09;
8 var
9 a: mtx;
10 m, n: longint;
11 x: double;
12 begin
13 equ(a,paramstr(1)); // read mtx a on cmd line
14 mwr(a);
15 m := lgn(a);
16 n := col(a);
17 x := elm(a,m,n); // x = a(m,n)
18 mwr(x);
19 elm(a,m,n,-x); // a(m,n) = -x
20 mwr(a)
21 end.
22 {
23 1 2 3
24 4 5 6
25
26 6
27
28 1 2 3
29 4 5 -6
30
31 }