Алгоритм, который находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов - Pascal ABC

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

Вот само задание: 16) Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на русском языке или на одном из языков программирования

алгоритм, который находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Паскаль

const N=30;
var a: array [1..N] of integer;
    i, l, lmax, s, smax: integer;
begin
  for i:=1 to N do readln(a[i]);
  ...
end.

В качестве ответа вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Borland Pascal 7.0) или в виде блок-схемы. В этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке). Напишите пожалуйста код. очень прошу

Решение задачи: «Алгоритм, который находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов»

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

const n=30;
var a: array [1..n+1] of integer;
    i, l, lmax, s, smax: integer;
begin
for i:=1 to n do
readln(a[i]);
a[n+1]:=-maxint-1;
lmax:=0;
l:=1;
s:=a[1];
for i:=2 to n+1 do
if a[i]>a[i-1] then
 begin
  l:=l+1;
  s:=s+a[i];
 end
else
 begin
  if l>lmax then
   begin
    lmax:=l;
    smax:=s;
   end;
  l:=1;
  s:=a[i];
 end;
writeln('Наибольшая возрастающая последовательность:');
writeln('длина=',lmax);
writeln('сумма=',smax);
end.

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

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

n - количество элементов в массиве (равное 30 в данном случае)
a - массив целых чисел, в котором каждый элемент соответствует своему индексу (например, a[1] соответствует первому элементу массива)
i - переменная для итерации по элементам массива
l - переменная для хранения длины наибольшей возрастающей последовательности
lmax - переменная для хранения максимальной длины возрастающей последовательности
s - переменная для хранения суммы элементов возрастающей последовательности Код начинается с инициализации переменной n и объявления массива a. Затем происходит чтение элементов массива с помощью цикла for, и последний элемент устанавливается равным -maxint-1. Далее, переменные lmax и l инициализируются значением 1. Затем следует основной цикл for, который начинается с i=2 и продолжается до i=n+1. Внутри этого цикла проверяется условие, при котором текущий элемент a[i] больше предыдущего элемента a[i-1]. Если это условие выполняется, то переменные l и s обновляются: l увеличивается на 1, а s увеличивается на a[i]. Это продолжается до тех пор, пока l<lmax. Если условие из предыдущего пункта не выполняется, то проверяется, не достигла ли длина lmax. Если это так, то переменные lmax и smax обновляются, и цикл прерывается. Иначе, переменные l и s обновляются, и цикл продолжается. После завершения основного цикла for происходит вывод на экран длины наибольшей возрастающей последовательности (lmax) и суммы элементов этой последовательности (smax). Таким образом, данный код находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов в массиве.