n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/test0046.pas

12 строк318 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

var arr : array[1..5] of integer;
    arr2 : array of real;
    arr3 : array['a'..'d'] of integer;
    arr4 : array[1..3,1..5] of integer;
begin
assert(Low(arr) = 1); assert(High(arr)=5);
SetLength(arr2,12); 
assert(Low(arr2)=0); 
assert(High(arr2)=11);
assert(char(Low(arr3))='a');
assert(char(High(arr3))='d'); 
end.