Разработать процедуру сортировки массива методом простых вставок. Массив заполняется случайными числами, произвести сортировку вещественных чисел в диапазоне [10;95] по убыванию. Также подсчитать теоретическое и реальное значения эффективности сортировки.
Вводится с клавиатуры длина массива.
Сортировка простыми вставками
procedure Sort ;
var k,j, x: byte;
begin
for k:=2 to N do
begin
x:=A[k];
j:=k-1;
while (j>0) and (x>A[j]) do
begin
A[j+1]:=A[j];
end;
A[j+1]:=x;
end;
end;