Дан линейный массив A[N], где N - четное число. Найти максимум среди сумм - Pascal

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

Дано линейный массив A[N] де N- четное число .ОТриматы максимальное среди сумм A1+A[N],A2+A[N-1] И ТД

Решение задачи: «Дан линейный массив A[N], где N - четное число. Найти максимум среди сумм»

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

const
  n = 2 * 5;
var
  a: array[1..n] of integer;
  i: integer;
  sum: integer;
  max: integer;
begin
  randomize;
  
  for i := 1 to n do
  begin
    a[i] := random(89) + 10;
    write(a[i], ' ');
  end;
  writeln;
  
  sum := a[1] + a[n];
  max := 1;
  
  for i := 2 to n div 2 do
    if a[i] + a[n-i+1] > sum then
    begin
      sum := a[i] + a[n-i+1];
      max := i;
    end;
      
  writeln('Элементы ', max, ' и ', n-max+1, ' имеют максимальную сумму, равную ', sum, '.');
end.

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

Объявлены следующие переменные:
- n - размер массива (в данном случае 10, так как 2 умножить на 5 равно 10).
- a - массив, в котором будут храниться числа.
- i - счётчик, используемый в цикле.
- sum - переменная для хранения суммы элементов.
- max - переменная для хранения индекса максимальной суммы.
Инициализируется генератор случайных чисел.
Заполняется массив a случайными числами от 11 до 89.
Выводится заполненный массив.
Находится сумма первых двух элементов массива (a[1] и a[n]), которая присваивается переменной sum, а max приравнивается к 1.
В цикле от 2 до n/2 (так как n - чётное число) проверяется, есть ли сумма текущих элементов (a[i] и a[n-i+1]) больше текущей суммы (sum).
Если такая сумма найдена, то обновляются значения sum и max.
Выводится сообщение с индексами элементов, имеющих максимальную сумму, и сама сумма.