Сформировать вектор по образцу - PascalABC.NET

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

Сформировать вектор U из упорядоченных по уменьшению элементов вектор :V={-0.1,7.2,1.5,-0.5,-2.5,-1.3,2.5,-5} непарные номера

Решение задачи: «Сформировать вектор по образцу»

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

begin
  var V : array of Real := (-0.1,7.2,1.5,-0.5,-2.5,-1.3,2.5,-5);
  
  var U : array of Real;
  SetLength(U, V.Length);
  var i := 0;
  foreach var n in V do
    begin
      U[i] := n;
      i += 1;
    end;
    
  WriteLn('Вектор V : ', V);
  WriteLn('Копия U : ', U);
  
  System.Array.Sort(U);
  WriteLn('Сортированный U : ', U);
  
  System.Array.Reverse(U);
  WriteLn('В обратном порядке U : ', U);
end.

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

В данном коде на языке PascalABC.Net выполняются следующие действия:

Создается массив V типа Real с элементами (-0.1, 7.2, 1.5, -0.5, -2.5, -1.3, 2.5, -5).
Создается массив U типа Real той же длины, что и V.
Заполняется массив U значениями из массива V с помощью цикла foreach и метода SetLength.
Выводится на экран вектор V.
Выводится на экран копия массива U.
Массив U сортируется методом Array.Sort.
Выводится на экран отсортированный массив U.
Массив U инвертируется с помощью метода Array.Reverse.
Выводится на экран массив U в обратном порядке.