Алгоритм, который находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов - 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). Таким образом, данный код находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов в массиве.