//Сортировка вставками
uses Arrays;

procedure SortByInsert(a: array of integer);
begin
 for var i:=1 to a.Length - 1 do
 begin
 var x := a[i];
 var j := i - 1;
 while (j >= 0) and (x < a[j]) do
 begin
 a[j + 1] := a[j];
 j -= 1;
 end;
 a[j + 1] := x;
 end;
end;

begin
 var a := CreateRandomIntegerArray(15);
 writeln('Исходный массив: ');
 a.Writeln;
 
 SortByInsert(a);
 
 writeln('Массив после сортировки: ');
 a.Writeln;
end.


 Похожие публикации
2015-11-23 • Просмотров [ 273 ]