Зеркально перевернуть элементы массива - PascalABC.NET

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

Дан линейный вещественный массив a, Зеркально перевернуть элементы массива, то есть первый элемент поменять с последним, второй с предпоследним и так далее, помогите сделать!

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

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

for i := 0 to (high(a) - low(a)) div 2 do 
  begin
    t := a[low(a) + i];
    a[low(a) + i] := a[high(a) - i];
    a[high(a) - i] := t
  end;

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

В данном коде на языке PascalABC.Net выполняется зеркальное переворачивание элементов массива.

for i := 0 to (high(a) - low(a)) div 2 do — начинается цикл, который выполняется от 0 до (размер массива / 2)
t := a[low(a) + i]; — в переменную t копируется элемент массива a с индексом low(a) + i
a[low(a) + i] := a[high(a) — i]; — элемент массива a с индексом low(a) + i заменяется на элемент массива a с индексом high(a) — i
a[high(a) — i] := t; — элемент массива a с индексом high(a) — i заменяется на значение переменной t В результате выполнения данного кода элементы массива a переворачиваются зеркально относительно своей середины.