Сортировка вставками
Это самый простой для понимания метод.
Его суть: создается новый массив, в который мы последовательно вставляем элементы из исходного массива так, чтобы новый массив был упорядоченным.
Код
Program InsertionSort;
uses crt;
Const N=20;
Var mas1,mas2 : array[1..100] of integer;
i,j : integer;
Begin
clrscr; randomize;
for i:=1 to N do begin
mas1[i]:=random(99); write(mas1[i]:3); end;
{сортировка данных}
for i:=1 to N do
begin
j:=i;
while (j>1) and (mas2[j-1]>mas1[i]) do
begin
mas2[j]:=mas2[j-1];
j:=j-1;
end;
mas2[j]:=mas1[i];
end;
writeln;
{Вывод отсортированного массива}
for i:=1 to N do
write(mas2[i]:3);
End.