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

[bestlover]

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

[Unconnected]

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

Сообщение отредактировано: Unconnected - 9.12.2008 1:20

[Lapp]

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 - то, может, сэкономится немного времени.. И заведомо расширится область применимости программы