21 lines
435 B
ObjectPascal
21 lines
435 B
ObjectPascal
type TArr = array of integer;
|
|
TMatr = array of array of integer;
|
|
|
|
const a : TArr = (2,3,4,5);
|
|
a2 : TMatr = ((1,2,3),(4,5,6),(7,8,9));
|
|
|
|
var b : TArr := (2,3,4,5);
|
|
b2 : TMatr := ((1,2,3),(4,5,6),(7,8,9));
|
|
a3 : TArr;
|
|
|
|
begin
|
|
assert(a[2] = 4);
|
|
assert(b[2] = 4);
|
|
assert(a2[1,1] = 5);
|
|
assert(b2[1,1] = 5);
|
|
a3 := new integer[4];
|
|
a3[2] := 111;
|
|
assert(a3[2] = 111);
|
|
SetLength(a3,8);
|
|
assert(a3[2] = 111);
|
|
end. |