Упорядочить нечетные элементы массива по убыванию (тема: метод перестановок или пузырька)

Создадим массив, который будет иметь тип real, чтобы было больше возможностей для его заполнения, и назовем его В:

B : array [1 ... 110] of real;

Заполним его случайными числами со специальной функцией:

for i:integer : = 1 to 110 do

B[i] : = random (100) / 5 + random (100) / 2;

Будем упорядочивать:

for i:integer : = 2 to 110 do

if (B[i] < B[i - 1]) then

begin

t : = B[i - 1];

B[i - 1] : = B[i];

B[i] : = t;

end;

После этого все элементы станут в массиве по порядку.