Shevchenko / 2sem / LR2

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