Расположить элементы массива по возрастанию их квадратов - Turbo Pascal

Формулировка задачи:

Дан массив А(10). расположить элементы массива по возрастанию их квадратов

Решение задачи: «Расположить элементы массива по возрастанию их квадратов»

Листинг программы

const n = 10;
var a: array[1..n] of integer;
    i, ii, x: integer;
begin
  randomize;
  for i := 1 to n do begin
    a[i] := -10 + random(21);
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to n - 1 do
    for ii := i to n do
      if a[i] * a[i] > a[ii] * a[ii] then begin
        x := a[i];
        a[i] := a[ii];
        a[ii] := x;
      end;
  for i := 1 to n do write(a[i], ' ')
end.

Объяснение кода листинга программы

В этом коде:

Объявляются переменные:
- n — количество элементов в массиве (10);
- a — массив (10 элементов);
- i, ii, x — счётчики и переменные для обмена значениями.
В цикле заполняется массив случайными числами от -10 до 10.
Проверятся, что элементы массива равны попарно по их квадратам, и при необходимости выполняется перестановка элементов.
Выводится содержимое массива.