Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Чет про программирование / практика / 7) Сортировка вставками
.docxСортировка вставками 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.
Соседние файлы в папке практика