readln(rnd);
for i:=1 to rnd do begin
data[i]:=random(rnd);
end;
writeln('poluchenniy massiv:');
for i:=1 to rnd do begin
write(data[i],' ');
end;
writeln;
begin
gettime(h,m,s,ms);
quicksort(data,1,rnd);
gettime(h1,m1,s1,ms1);
writeln('Otsortirovanniy massiv:');
for i:=1 to rnd do
write(data[i],' ');
writeln('s:',h,':',m,':',s,':',ms);
writeln('e:',h1,':',m1,':',s1,':',ms1);
end;
end.
кто может сказать...еще,как вычислить теперь значение времени,за которое отсортировалось.?
Сообщение отредактировано: bigformat -