16 lines
270 B
ObjectPascal
16 lines
270 B
ObjectPascal
type TSet = set of byte;
|
|
|
|
var arr : array of TSet;
|
|
|
|
begin
|
|
SetLength(arr,5);
|
|
Include(arr[1],3);
|
|
Include(arr[1],4);
|
|
assert(arr[1]=[3,4]);
|
|
SetLength(arr,7);
|
|
assert(arr[1]=[3,4]);
|
|
arr := new TSet[4];
|
|
Include(arr[1],3);
|
|
Include(arr[1],4);
|
|
assert(arr[1]=[3,4]);
|
|
end. |