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

<delеtеd by mе> <здесь был камень>

можно было через генератор значений массива сделать randomize, а так огромное спасибо!!!

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.

- есть сортировка?..

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

  writeln('Массив, отсортированный по убыванию квадратов значений каждого второго элемента');
  for c:=1 to b do
  begin
    write(mas2[b-c+1],' ');
  end;

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

И в конце концов, в задании сказано упорядочить данный массив, а не какой-то другой. Если ты использовал вспомогательный массив (что вообще-то не обязательно - только лишние действия и лишняя память), то положи элементы на место.

Самое последнее: если заменить квдраты на Abs - то, может, сэкономится немного времени.. И заведомо расширится область применимости программы

Полагаю, да.



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



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

Ты ошибаешься. Про сортировку есть тема в FAQ, посмотри.

Ты предупреждай об этом того, кому отвечаешь, заранее.

Большая просьба выполнять п.7 Правил раздела Задачи.
Сможешь сам исправить решение или тебе помочь?

Насколько я понял, ТС остался доволен решением,поэтому, хоть оно и не на 100% соответствует условию, переписывать его у меня нет никакого желания. Можете даже "помочь".

Оно ровно на 0% соответствует условию. А желание писать неверное решение у тебя было? А потом еще бравировать своим невежеством. Чем остался (или не остался) доволен автор - его дело, но только на этом форуме тебе не позволят выдавать черное за белое. Берешься помогать человеку - не давай ему камень вместо хлеба..

Лично от меня -1 в репутацию.

Уважаемый Lapp! Вы как предложете написать данную программу? Предложите свой вариант?

- на конкурс?
В такой задаче не может быть вариантов. Может быть верное решение.

Выкладывай свои соображения. Тогда будут варианты..

в каждой сортировки есть 2 цикла я ток видел 1

вот то что предлагаю я:

i:=1;
repeat
j:=i+2;
        repeat 
              if sqr(a[i])<sqr(a[j]) then  //проверяем условие
                         begin
                                 x:=a[i];
                                 a[i]:=a[i];
                                a[j]:=x;
                         end;
        j:=j+2;                               //увеличуем на 2 поскольку через 1
     until j>=count;                        //условие выхода из цикла
i:=i+2;                                      //увеличуем на 2 поскольку через 1
until i>=count;