Что делает программный блок? for i := 1 to N-1 do
begin
m:=i;
for j := i+1 to N do
if mas[j] < mas[m] then m:=j;
r := mas[i];
mas[i] := mas[m];
mas[m] := r;
end;
1Сортирует массив по возрастанию
2Сортирует массив по по убыванию
3Находит максимальный элемент массива
4Находит минимальный элемент массива
5Находит значение r