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