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

July 2022 1 8 Report

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

Answers & Comments

ST4NGER Ну что то типо этого
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 votes Thanks 1

Tartaruga552 Ну выглядет рабочей, благодарю

Answers & Comments

najdite naimenshee naturalnoe chislo udovletvoryayushee usloviya x3 x2100 pascal

dana nepustaya posledovatelnost simvolov trebuetsya postroit mnozhestvo elemen

vse elementy massiva s chyotnymi nomerami predshestvuyushie pervomu po poryadku elemen

vychislit funkciyu zlna cos3bc gde abc summy polozhitelnyh elementov massiv

рекомендуемые вопросы

Helpful Links

Helpful Social