program masiv;const N=10;var mas:array [1..10] of integer;i,j,r,o:integer;begin for o:=1 to N do mas[o]:=Random(30)+30; for i:=1 to N-1 do for j:=1 to N-i do if (mas[j]>mas[j+1]) then begin r:=mas[j+1]; mas[j+1]:=mas[j]; mas[j]:=r; end;Writeln(mas)end.