Процедуры и функции(работа с массивами) - Pascal

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

Задание: В программу обработки массива добавить процедуру обращения массива 1<-> n 2<-> n-1 3<-> n -2 ... т.д И функцию подсчета всех элементов. (Сейчас мы проходим тему процедуры и функции). Помогите, пожалуйста.

Решение задачи: «Процедуры и функции(работа с массивами)»

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

procedure change(var a: mas; n: integer);
var i, j, t: integer;
begin
  for i:=1 to n div 2 do
  begin
    t:=a[i];
    a[i]:=a[n-i+1];
    a[n-i+1]:=t;
  end;
end;

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

В данной процедуре происходит перестановка элементов массива a, при этом элементы с индексами i и n-i+1 меняются местами.

Объявлены следующие переменные: — i, j, t (переменные для цикла) — a (массив, с которым производятся операции) — n (количество элементов, которые необходимо поменять местами)
Выполняется цикл от i=1 до n/2 (поскольку индексы массива начинаются с 1, а не с 0)
Внутри цикла выполняется следующее: — Значение элемента с индексом i сохраняется в переменной t — Элементу с индексом i присваивается значение элемента с индексом n-i+1 — Элементу с индексом n-i+1 присваивается значение переменной t
По завершении цикла все элементы массива a изменены местами