Сортировка массива I

Задача:

Сортировка массива методом пузырька.

Описание:

Эту сортировку так называют потому, что при обработке массива более "лёгкие" элементы перемещаются вверх.

Код:


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.