Отсортировать массив по не убыванию методом сортировки Шелла
(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
Сортировка Шелла - это сортировка с убывающим шагом. В этой программе о шаге вообще не заикаются.
Вас заинтересует
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад