Информатика, вопрос задал Tartaruga552 , 8 лет назад

Отсортировать массив по не убыванию методом сортировки Шелла
(Pascal, и элемениы массива нужно ввести вручную) хелп

Ответы на вопрос

Ответил ST4NGER
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.
Ответил Tartaruga552
0
Ну выглядет рабочей, благодарю
Ответил Аноним
0
Только это ни разу сортировка Шелла
Ответил Аноним
0
Сортировка Шелла - это сортировка с убывающим шагом. В этой программе о шаге вообще не заикаются.
Новые вопросы