Написать программу на паскале (максимально просто)дан массив из n элементов. к найти сумму элементов наибольшей возрастающей последовательности подряд идущих элементов массива.например: (1 15) (3 14 21 36 71) 2 найти их сумму, какая будет больше, ту и вывести, последовательность, должна быть возрастающей и в ней должно быть наибольшее количество элементов.
n = 10;
var
a : array [1..n] of integer;
r : boolean;
i,j : integer;
begin
//Формирование массива пропущено
r := true;
While r do
begin
if a[i] mod 2 =0 then
begin
for j := n-1 downto i + 2 do
a[j] := a[j-1];
a[i+1] := 0;
r := false;
end;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)