Эту сортировку так называют потому, что при обработке массива более "лёгкие" элементы перемещаются вверх.
Код:
program pyz;
const n = 20;
var V:array[1..n] of integer;
i,j,tmp:integer;
begin
Randomize;
for i:=1 to n do
V[i]:= Random(100);
Writeln('Исходный массив: ');
for i:=1 to n do Write(V[i],' ');
for i:=1 to n-1 do
for j:=i+1 to n do
if V[i] >= V[j] then begin
tmp:= V[i];
V[i]:= V[j];
V[j]:= tmp;
end;
Writeln;
Writeln('Упорядоченный по неубыванию массив: ');
for i:=1 to n do Write(V[i],' ');
Readln;
End.
По убыванию элементов:
Код:
program pyz;
const n = 20;
var V:array[1..n] of integer;
i,j,tmp:integer;
begin
Randomize;
for i:=1 to n do
V[i]:= Random(100);
Writeln('Исходный массив: ');
for i:=1 to n do Write(V[i],' ');
for i:=1 to n-1 do
for j:=i+1 to n do
if V[i] < V[j] then begin
tmp:= V[i];
V[i]:= V[j];
V[j]:= tmp;
end;
Writeln;
Writeln('Упорядоченный по убыванию массив: ');
for i:=1 to n do Write(V[i],' ');
Readln;
End.