те которые занимаются трофическом построениями
<span>По логике так:
Надо расположить по возрастанию, то есть первое </span>меньше второго, второе меньше<span> третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")
1)Начало.
2) Сравни первое и второе числа; если первое </span><u>больше</u><span> второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе </span><u>больше</u><span> третьего, то поменяй их местами.
4)Если теперь три числа <u>не </u></span><u>расположены</u> в порядке убывания, то исполни пункт 5) этого алгоритма; иначе <u>вернись</u><span> к пункту 2).
5</span>)Конец.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.