Question

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

Answer 1

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

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]<a[i+1]
      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.

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

Пример: