clc
clear
N=7;
M=0;
S=[10; 8; 3; 28; 11; 4; 1]; %задание массива
tic
for I=1:(N-1); %для каждого "порядка" в массиве
MIN=I; %обозначаем значение по этому порядку как минимальное
for J=I+1:N; %для каждого последующего
if S(J)<S(MIN); %сравниваем с минимальным
MIN=J; %если следующее меньше минимального - оно становится минимальным
end
end
P=S(I);
S(I)=S(MIN);
S(MIN)=P; %ставим найденное минимальное на этот "порядок"
M=M+1; %счетчик итераций
end
toc
S
M
clear
N=7;
M=0;
S=[10; 8; 3; 28; 11; 4; 1]; %задание массива
tic
for I=1:(N-1); %для каждого "порядка" в массиве
MIN=I; %обозначаем значение по этому порядку как минимальное
for J=I+1:N; %для каждого последующего
if S(J)<S(MIN); %сравниваем с минимальным
MIN=J; %если следующее меньше минимального - оно становится минимальным
end
end
P=S(I);
S(I)=S(MIN);
S(MIN)=P; %ставим найденное минимальное на этот "порядок"
M=M+1; %счетчик итераций
end
toc
S
M
Соседние файлы в папке 2sem