Дан целочисленный массив из 40 элементов. Элементы
массива могут принимать произвольные целые
значения. Написать алгоритм, который находит и
выводит сумму наибольшей по длине убывающей
последовательности подряд идущих элементов. Если
таких последовательностей несколько, можно вывести
любую из них. const N=40;
var
a: array [1..N] of integer;
i, dl,dlmax, sum, smax: integer;
begin
for i:= 1 to N do readln(a[i]);
…
end.