整列の時間を計ろうとしたら早く終わりすぎて計れなかったんでループさせてから
かかった時間をループ回数で割って計ろうとしました。
自分で作ってみたんですが途中で整列する対象がソート済みの配列に変わってしまうんです。
整列前のソートをソートし続けるいい方法はないですかね?
begin
for i:=1 to 100 do begin
y[i]:=101-i;
end;
for j:= 1 to 10000 do begin
for k:=1 to 100 do begin
x[k]:=y[k];
end;
while m<=100 do begin
writeln('x[',m,']=',x[m]); m:=m+1;
end;
for r:=100 downto 1 do begin
for l:=1 to 99 do begin
if (x[l]>x[l+1]) then swap(x[l],x[l+1]);{swap(x,y)はxの値とyの値を入れ替える手続き}
end;
end;
end.