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