Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Чет про программирование / практика / 7) Сортировка вставками

.docx
Скачиваний:
22
Добавлен:
25.04.2015
Размер:
12.93 Кб
Скачать

Сортировка вставками O(n^2)

const

n = 10;

var

a: array[1..n] of integer;

i, j, key: integer;

Begin

randomize;

for i:=1 to n do begin

a[i] := random(100);

Write(a[i], ' ');

end;

writeln;

for i := 2 to n do begin

key := a[i];

j := i-1;

while (j>=1) and (a[j] > key) do begin

a[j+1] := a[j];

dec(j);

end;

a[j+1] := key;

end;

for i:=1 to n do

Write(a[i], ' ');

readln;

end.