Напишите программу поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна - Pascal

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

Всем привет!) надеюсь поможете сделать несколько программ с массивом. И наконец-то, третья, напишите программу поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна.(если таких пар несколько, то можно выбрать любую из них)

Решение задачи: «Напишите программу поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна»

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

const m = 30;
var a: array [1..m] of integer;
    i, k: integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m do
    begin
      a[i] := random(10);
      write(a[i]:2)
    end;
  writeln;
  k := 1;
  for i := 1 to m - 1 do if a[i] + a[i + 1] > a[k] + a[k + 1] then k := i;
  writeln('Result: ', k);
  readln
end.

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

В данном коде объявлены следующие переменные:

m - размер массива (равен 30);
a - массив целых чисел;
i - индекс текущего элемента массива;
k - индекс предыдущего элемента массива;
randomize - инициализация генератора случайных чисел;
writeln - вывод информации на экран;
for - цикл, выполняющийся заданное количество раз;
a[i] - элемент массива с индексом i;
write(a[i]:2) - вывод значения элемента массива на экран;
end;
k := 1;
for - цикл, выполняющийся до тех пор, пока текущая сумма двух последовательных элементов больше максимальной суммы;
if a[i] + a[i + 1] > a[k] + a[k + 1] then k := i;
writeln('Result: ', k);
readln - ожидание ввода пользователя. Цель программы - найти номер первого из двух последовательных элементов в массиве, сумма которых максимальна. Для этого используется цикл, в котором вычисляется максимальная сумма двух последовательных элементов и затем сравнивается со суммой текущего и следующего элементов. Если текущая сумма больше максимальной, то обновляется значение переменной k. После выполнения цикла выводится результат - номер первого элемента, сумма которого является максимальной.