[bartle96]

Все привет!
Помогите определить как называется этот алгоритм сортировки

Код:

program Project1;

{$APPTYPE CONSOLE}



uses
  SysUtils;

const
  MaxN=15;
var
  a: array [1..MaxN] of integer;
  i, j: integer;         // Ñ÷¸ò÷èêè
  Amin: integer;      // Ìèíèìàëüíîå çíà÷åíèå ìàññèâà â òåêóùåé èòåðàöèè öèêëà
  IndMin: integer;    // Èíäåêñ ìèíèìàëüíîãî ýëåìåíòà
  tmp: integer;       // Âðåìåííàÿ ïåðåìåííàÿ äëÿ ïåðåñòàíîâêè çíà÷åíèé ýëåìåíòîâ ìàññèâà

begin
  { TODO -oUser -cConsole Main : Insert code here }



     // Çàïîëíåíèå ìàññèâà
     writeln('massiv');
     for i:=1 to MaxN do
     begin
         a[i]:=random(101);
         writeln(a[i], ' ');
     end;
          writeln('');
 
     for j:= 1 to MaxN-1 do
     begin
         Amin:=a[j];
         IndMin:=j;
         // Ïîèñê ìèíèìàëüíîãî ýëåìåíòà
         for i:=j+1 to MaxN do
             begin
             if Amin>a[i] then
             begin
                 Amin:=a[i];           // Ñîõðàíÿåì çíà÷åíèå ìèíèìàëüíîãî ýëåìåíòà
                 IndMin:=i;            // Ñîõðàíÿåì èíäåêñ ìèíèìàëüíîãî ýëåìåíòà
             end;
         end;
         // Ïåðåñòàíîâêà ìåñòàìè ïåðâîãî è ìèíèìàëüíîãî ýëåìåíòîâ ìàññèâà
         tmp:=a[j];
         a[j]:=Amin;
         a[IndMin]:=tmp;
     end;
 
     // Âûâîä ìàññèâ
     writeln('itog:');
     for i:=1 to MaxN do
         writeln(a[i], ' ');

         readln;

end.

[M.A.D.M.A.N.]

«Gepsh`r»__