, 23 2021 . 21:07
+
FasterHarder:
Akina, ,
!
, - . .,
, "<" "<=", ()...
. - ...
:
for i := 1 to N do
index[i] := i;
for i := 1 to (N - 1) do
begin
imin := index[i];
for j := (i + 1) to N do
begin
if(data[index[j]] < data[imin]) then // <=,
imin := j;
end;
//writeln('i = ', i, '; imin = ', imin);
//write(imin:6);
//if(index[imin] <> index[i]) then
begin
swap := index[imin];
index[imin] := index[i];
index[i] := swap;
end;
//for j := 1 to N do
// write(index[j]:4);
//readln;
end;
, ), , , . , , 99% , , ( ), (, , - ). - .
, ...
https://forum.sources.ru/index.php?showtopic=421471&view=findpost&p=3847646
