15 lines
294 B
Plaintext
15 lines
294 B
Plaintext
module AryLength;
|
|
type
|
|
Vector = array 12 of string;
|
|
Matrix = array *,* of string;
|
|
var
|
|
a: Vector;
|
|
b: Matrix;
|
|
begin
|
|
writeln(len(a):4); (* len(a) = len(a,0) *)
|
|
|
|
b := new Matrix(10,11);
|
|
writeln(len(b,0):4); (* first dimension *)
|
|
writeln(len(b,1):4) (* second dimension *)
|
|
end AryLength.
|