пример:
исход.массив
14 25 13 30 76 58 32 11 41 97
результат:
13 14 25 30 76 97 58 41 32 11
uses crt;
const n=10;
var a:array[1..n] of byte;
k,i,j,x,buf:byte;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(101);
write(a[i]:4);
end;
writeln;
writeln;
k:=n div 2;
{сортировка выбором по возрастанию первой половины}
for i:=1 to k-1 do
begin
x:=i;
for j:=i+1 to k do
if a[j]<a[x] then x:=j;
buf:=a[i];
a[i]:=a[x];
a[x]:=buf;
end;
{сортировка выбором по убыванию второй половины}
for i:=k+1 to n-1 do
begin
x:=i;
for j:=i+1 to n do
if a[j]>a[x] then x:=j;
buf:=a[i];
a[i]:=a[x];
a[x]:=buf;
end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Похожие записи/страницы:
- Методом выбора отсортировать по убыванию только нечётные элементы - Pascal(Паскаль)
- Сортировка массива "пузырьком" по возрастанию- Pascal(Паскаль)
- Дана последовательность A размерности N,числа K и L.Сформировать последовательность B,в которую входят элементы…
- Задан двумерный массив. Получить одномерный массив, состоящий из минимальных элементов строк двумерного массива.…
- дана квадратная матрица размером n*n, содержащая целые положительные числа. Определить сумму элементов в каждом…
- Ввести одномерный массив A, вывести его. Элементы первойполовины массива, отсортировать по возрастанию, а второй…
- Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20,20). Требуется…
- Создать двумерный массив, размером 5 х 7. Заполнить его случайно целыми числами, в районе от 0 до 30. Вывести…