Задача 1 Постановка задачи:
1. Задан одномерный числовой массив {X} из 10 чисел. Сформировать
другой одномерный числовой массив [Y}, каждый элемент которого вычисляется
по формуле:

где о= 1.25 i=1,2,10
Для решения задачи разработать алгоритм и программу на языке Pascal ABC.
2. Требования к разработке алгоритма и программы.
1) Ввод исходных данных в массив {X} с клавиатуры с использованием
циклической группы с параметром.
2) Расчет элементов массива {Y} с использованием циклической группы с
постусловием.
3) Вывод результатов с использованием циклической группы с предусловием в
виде таблицы в 3 столбца с выводом на экран № элемента массива и значений
массивов Х и Ү. Точность вычисления значений результата до тысячных.
3. Набор исходных данных для массива {x}
{-4.1, -3.1, -2.3, -1.2, -0.1, 1.5, 2.7. 3.2, 3.9, 4.7}.
​

Вообще то, это задача чисто математическая.  Пусть есть трехзначное число abc.
По условию:

   abc
+ abc

   bca
Понятно, что максимальным число будет, если сложение в двух младших разрядах идет через перенос  ->  получим систему уравнений:
2c = a +16
2b +1 = c + 16
2a + 1 = b
равносильная ей система
2с = a + 16
c = 2b - 15
b = 2a + 1
подставляем третье во второе, получаем первые два уравнения
2с = a + 16
c = 4a - 13   из этих двух уравнений  ->   7a = 42  ->  a = 6  -> из третьего уравнения  b = 13
13 = D(16),   из первого уравнения  с = 22/2 = 11(10) = B(16)
->  abc(16) = 6DB(16) = 1755(10),     DB6(16) = 3510(10)   -> 2abc = bca

Как ч понял сортировка по неубыванию это сортировка по возрастанию. То есть легкие элементы всплывают наверх, а тяжелые перемещаются вниз:

//Pascal
const m = 1000
var
    arr: array[1..m] of integer;
    n,i, j, k: integer;
begin
    readln(n);
    write ('Исходный массив: ');
    for i := 1 to n do begin
        readln(arr[i]);
    end;
//сортировка методом пузырька   
    for i := 1 to n-1 do
        for j := 1 to n-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to n do
        write (arr[i]:4);
end.

Алгоритм сортировки на классическом языке программирования С

# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
 {
     int i, j;
     for(i = n-1 ; i > 0 ; i--)
          { for(j = 0 ; j < i ; j++)
               {
                   if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
               }
           }
   }