Shevchenko / 2sem / LR6

clc
clear
mt=1;
mc=1;
im=1;
i=1; %строки 4-7 счетчики
S=[4 4 4 4 4 7 7 7]; %отсортированный массив
N=length(S);
while i<(N-1)
  j=i;
  while j<N && (S(j)==S(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
if mc>1 %если есть число повторяющееся больше 1 раза
  disp("Число в моде")
  disp(S(im))
  disp("Позиция начала моды")
  disp(im)
  disp("Длительность моды")
  disp(mc)
else
  disp('No mode')
end