В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет следующее:
… j:=1; k:=0; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; k:=k+1; end; for j:=k downto 2 do for i:=1 to j-1 do if x[y[i]]>x[y[i+1]] then begin z:=x[y[i]]; x[y[i]]:=x[y[i+1]]; x[y[i+1]]:=z; end;…