, (var A: […][…] …) , , ( , , ). , , , .
(var A: […, …] …) , , . .
, , , . , , , - , .
, , , . , c_ptrTo(), , printf(), :
use CPtr;
config const n = 3;
var A: [1..n][1..n] real;
var a11 = c_ptrTo(A[1][1]),
a12 = c_ptrTo(A[1][2]),
a21 = c_ptrTo(A[2][1]);
var B: [1..n, 1..n] real;
var b11 = c_ptrTo(B[1,1]),
b12 = c_ptrTo(B[1,2]),
b21 = c_ptrTo(B[2,1]);
extern proc printf(x...);
printf("%p %p %p\n", a11, a12, a21);
printf("%p %p %p\n", b11, b12, b21);