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

Ответы 7

  • Смысл не в этом, а в том, что можно и без второго массива решить
    • Автор:

      duckling
    • 6 лет назад
    • 0
  • Откуда 1 2 3 в 1 4 2 3 1 ???
  • По условию "из подряд идущих элементов"
    • Автор:

      theodore
    • 6 лет назад
    • 0
  • извиняюсь, это я ошибся
  • как обычно все усложняю
    • Автор:

      tyler85
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      pixieyesm
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin  var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;  var maxl:=0; // максимальная из длин  var currl:=1; // текущая длина  for var i:=1 to a.Length-1 do    if a[i]>=a[i-1] then Inc(currl)    else begin      if currl>maxl then maxl:=currl;      currl:=1      end;  if currl>maxl then maxl:=currl;  Writeln('Максимальная длина ',maxl);end.Тестовое решение:n= 154 2 4 4 1 1 1 7 4 9 4 4 5 4 7Максимальная длина 4
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years