Предмет: Информатика,
автор: Tartaruga552
Отсортировать массив по не убыванию методом сортировки Шелла
(Pascal, и элемениы массива нужно ввести вручную) хелп
Ответы
Автор ответа:
0
Ну что то типо этого
var j,i,k,n:integer; m:array[1..1000] of integer;begin read(n,k); //Ввод элементов массива for i:=1 to n do read(m[i]); //Сортировка по возрастанию for i:=1 to k do for j:=i to k do if m[j]<m[i] then swap(m[i],m[j]); //Сортировка по убыванию for i:=k+1 to n do for j:=i to n do if m[j]>m[i] then swap(m[i],m[j]); //Вывод элементов массива for i:=1 to n do print(m[i]);end.
var j,i,k,n:integer; m:array[1..1000] of integer;begin read(n,k); //Ввод элементов массива for i:=1 to n do read(m[i]); //Сортировка по возрастанию for i:=1 to k do for j:=i to k do if m[j]<m[i] then swap(m[i],m[j]); //Сортировка по убыванию for i:=k+1 to n do for j:=i to n do if m[j]>m[i] then swap(m[i],m[j]); //Вывод элементов массива for i:=1 to n do print(m[i]);end.
Автор ответа:
0
Ну выглядет рабочей, благодарю
Автор ответа:
0
Только это ни разу сортировка Шелла
Автор ответа:
0
Сортировка Шелла - это сортировка с убывающим шагом. В этой программе о шаге вообще не заикаются.
Похожие вопросы
Предмет: Русский язык,
автор: hvaran777
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: mpechorin7
Предмет: Информатика,
автор: Lincorn
Предмет: Математика,
автор: DIANAstar1