14 lines
225 B
ObjectPascal
14 lines
225 B
ObjectPascal
// Демонстрация функции Milliseconds
|
|
uses Utils;
|
|
|
|
const n = 5000;
|
|
|
|
var a: array [1..n,1..n] of real;
|
|
|
|
begin
|
|
for var i:=1 to n do
|
|
for var j:=1 to n do
|
|
a[i,j] := 1;
|
|
writeln(Milliseconds/1000);
|
|
end.
|