Program massive;varQW:array[1..30] of integer;min, i, a, b, c: integer;begin //погнали//задаём массив случайными числами из [5; 20]//*************************************************************************************randomize;//запускаем генератор случайных чиселfor i:=1 to 10 doQW[i]:=random(15)+5;//*************************************************************************************for i:=1 to 30 dowrite(QW[i],' ');writeln(' ');//***********************************************************************************//чередуем по возрастаниюfor a:=1 to 30 dobeginmin:=32767;for i:=a to 30 doif(QW[i]<min) thenbeginmin:=QW[i];b:=i;end;c:=QW[b];QW[b]:=QW[a];QW[a]:=c;end;//**************************************************************************************//вывод массиваfor i:=1 to 30 do write(QW[i],' ');read(a);end.//RADIOFAN