1. В одномерном массиве определить максимальную длину неубывающего участ-ка. Например,...

Question

1. В одномерном массиве определить максимальную длину неубывающего участ-ка. Например, для 6 3 4 1 2 3 5 0 -2 -1 ответом будет 4.

2. Найдите наиболее часто повторяющееся в массиве число.

Comments

Способ ввода массива?

---

Не важно. Хоть с клавиатуры, хоть рандомом)

Answer 1

Решение в прикрепленном файле. Язык программирования не указан, поэтому на паскале.

---

Скачать вложение Текст (TXT)

Answer 2

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
  var a:=ArrRandom(ReadInteger('Введите размер массива: '),-20,20); a.Println;
  var s:=1;
  var max:=0;
  for var i:=0 to a.Length-2 do
   begin
    if a[i]      then s+=1
      else 
        if s>max
          then max:=s
          else s:=1;
   end;
  Println('Максимальная длина неубывающего участка-> ',max);
  s:=0;
  max:=0;
  var maxi:=0;
  for var i:=0 to a.Length-1 do
   begin
     for var j:=0 to a.Length-1 do
       if a[i]=a[j] then s+=1;
     if s>max then begin max:=s; maxi:=i; end;
     s:=0;
   end;
  If max=1 then Println('Числа повторяются одинаково')
  else Println('Наиболее повторяющееся число->',a[maxi]);
end.

Немного короче, но сложнее в восприятии будет, я думаю

Пример:

---