Как сортировать чтобы элементы выводились по возрастанию? (Паскаль)
for i:=25 to 36 do
begin
if i mod 3 = 0 then // каждое третье число
begin
D[i] := 1/ D[i] ; // находит обратные значения
write (D[i]:10:2);
end;
end;
Вот если что условия задачи: Упорядочить каждые третьи элементы последней трети массива по возрастанию обратных значений
По дате
По Рейтингу
Любая обычная сортировка, только бегать надо не по всему массиву, а через 2
И считать обратные значения ни к чему, тем более перезаписывать их в массив, это вообще не требуется
Сортировка по возрастанию обратных значений - значит сортировка по убыванию
Ну и с 25 до 36 странный хардкод, все-таки лучше вычислять последнюю треть.
Больше по теме