Паскаль Сортировка по убыванию методом пузырька

ObjectOne > Pascal > Паскаль Сортировка по убыванию методом пузырька

Паскаль Сортировка по убыванию методом пузырька

const
  N = 5;
  
var
  mas: array [1..N] of integer;
  i, j, r: integer;
  
begin

mas[1] := 22;
mas[2] := 36;
mas[3] := 28;
mas[4] := 589;
mas[5] := 11;

  for i := 1 to N-1 do
    for j := 1 to N-i do
      if(mas[j] > mas[j+1]) then //берем текущий сравниваем со следующим
       begin //делаем перестановку с помощью дополнительной переменной
        r := mas[j];
        mas[j] := mas[j+1]; //в левый записали значение правого
        mas[j+1] := r;
       end;
       
for i := 1 to N do
  writeln(mas[i]);
end.

const

N = 5;

var

mas: array [1..N] of integer;

i, j, r: integer;

begin

mas[1] := 22;

mas[2] := 36;

mas[3] := 28;

mas[4] := 589;

mas[5] := 11;

for i := 1 to N-1 do

for j := 1 to N-i do

if(mas[j] > mas[j+1]) then //берем текущий сравниваем со следующим

begin //делаем перестановку с помощью дополнительной переменной

r := mas[j];

mas[j] := mas[j+1]; //в левый записали значение правого

mas[j+1] := r;

end;

for i := 1 to N do

writeln(mas[i]);

end.

Количество просмотров: 4 933

| Категория: Pascal

« write и writeln вывод Pascal на экран Сортировка массива из случайных чисел методом пузырька »