Преобразовать заданный массив по правилу - Turbo Pascal

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

Преобразовать заданный массив следующим образом: из положительных элементов вычесть первый, к отрицательным прибавить последний, первый и последний элементы, а также элементы равные нулю, оставить без изменений.

Решение задачи: «Преобразовать заданный массив по правилу»

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

first:=a[1];
last:=a[n];
for i:=1 to n do
 begin
  if a[i]>0 then
   a[i]:=a[i]-first;
  if a[i]<0 then
   a[i]:=a[i]+first+last;
 end;

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

В данном коде происходит преобразование массива по правилу.

Переменная first присваивается значение первого элемента массива a.
Переменная last присваивается значение последнего элемента массива a.
Запускается цикл for, который проходит по всем элементам массива a от 1 до n.
Внутри цикла проверяется условие: если элемент массива a[i] больше нуля, то он преобразуется, вычитая из него значение first. Если элемент меньше нуля, то он преобразуется, прибавляя к нему значение first и last.
После завершения цикла, все элементы массива a будут преобразованы согласно указанному правилу.