В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет следующее:
… j:=1; k:=0; for i:=1 to n do if x[i] >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;…