Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан одномерный массив из N целых чисел. Найти в массиве максимальную длинну последовательности из подряд идущих элементов каждый из которых больше или равен предыдущему

Ответ оставил Гость

Var
  a: array[1..100] of integer;
  n, i, maxlen, len: integer;
 
begin
  write(Введите длину последовательности n: );
  read(n);
  write(Введите последовательность: );
  for i := 1 to n do read(a[i]);
  len := 1;
  for i := 2 to n do
    if a[i - 1] <= a[i] then inc(len)
    else
    begin
      maxlen := max(len, maxlen);
      len := 1;
    end;
  write(Максимальная длина возрастающей последовательности: , max(maxlen, len));
end.