Shevchenko / 2sem / LR6_2

clc
clear
N=10^2;
mt=1;
mc=1;
im=1;
i=1; %строки 4-7 счетчики
S=fix(N*rand ([1 N])); %отсортированный массив
function[S] = quicksort(S);
 if ~(numel(S)<=1);
 global cm;
 cm=cm+1;
 pivot=S(1);
 A1=quicksort(S(S<pivot));
 A2=S(S==pivot);
 A3=quicksort(S(S>pivot));
 S=[A1 A2 A3];
end
end
y=quicksort(S);
tic
while i<(N-1)
  j=i;
  while j<N && (y(j)==y(j+1));
    mt=mt+1; %сколько раз число равно последующему при шаге 1
    j=j+1; %делаем шаг
  end
i=i+mt; %новая точка отсчета
if mt > mc %наличие повторений числа
  mc=mt; %запоминаем количество наибольших повторений, с которым далее будем сравнивать в строке 16
  im=(i-mt); %перемещение в начало повторений
end
mt=1; %"обнуление" счетчика повторений числа
end
toc
if mc>1 %если есть число повторяющееся больше 1 раза
  disp("Число первой наибольшей моды")
  disp(y(im))
  disp("Позиция начала моды")
  disp(im)
  disp("Длительность моды")
  disp(mc)
else
  disp('No mode')
end