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

Метод ввода массива?

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

//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]lt;a[i+1]
      then s+=1
      else 
        if sgt;max
          then max:=s
          else s:=1;
   end;
  Println('Наибольшая длина неубывающего участка-gt; ',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 sgt;max then begin max:=s; maxi:=i; end;
     s:=0;
   end;
  If max=1 then Println('Числа повторяются одинаково')
  else Println('Более циклическое число-gt;',a[maxi]);
end.

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

Пример:

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