Массивы! Помогите пожалуйста! Опции

[bestlover]

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

[Unconnected]

Unconnected, ты полагаешь, что это:

for c:=1 to b-1 do
begin
if ((mas2[c]*mas2[c])>(mas2[c+1]*mas2[c+1])) then begin
buf:=mas2[c];
mas2[c]:=mas2[c+1];
mas2[c+1]:=buf;
end;
end;
readln;
end.
- есть сортировка?..

Полагаю, да.

Зачем сортировать по возрастанию, а потом выводить сзаду наперед??

Меня притягивают нестандартные и ресурсоёмкие решения

Кроме того, задании сказано упорядочить массив, а не вывести упорядоченный.

Сделал ручной ввод и вывод массива на экран для большей наглядности...