9 lines
169 B
ObjectPascal
9 lines
169 B
ObjectPascal
begin
|
|
var s := Arr(1..1000);
|
|
var s1: array of integer;
|
|
var n := 100000000;
|
|
MillisecondsDelta;
|
|
loop n do
|
|
s1 := s[1:11];
|
|
MillisecondsDelta.Println;
|
|
end. |