Pascal. Задача 8-26

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

Решение

const
  N = 10;
var
  i, sum, msum, cnt, mcnt : integer;
  a : array[1..N] of integer;
begin
  for i := 1 to N do begin
    Write('Введите элемент массива ', i, ': ');
    Readln(a[i]);
  end;
  sum := a[1];
  cnt := 1;
  for i := 2 to N do begin
    if a[i] > a[i - 1] then begin
      Inc(cnt);
      sum := sum + a[i];
    end
    else begin
      if cnt > mcnt then begin
        mcnt := cnt;
        msum := sum;
      end;
      cnt := 1;
      sum := a[i];
    end;
  end;
  Writeln('Сумма: ', msum)
end.

◄▲►