Составить программу. 1) дан массив х (1… 10) получить новый массив у (1… 10) такой что в…

type array100=array [1… 100] of integer; var x,y: array100; i,n,min,max: integer; procedure QuickSort (var a: array100; low: integer; high: integer); var i,j,x,t: integer; begin i: =low; j: =high; x: =A[ (low+high) div 2]; repeat while (A[i]>x) do i: =i+1; while (A[j]j) or (i>=n); if (lowx[max] then max: =i; end; i: =x[min]; x[min]: =x[max]; x[max]: =i; writeln; for i: =1 to n do begin write (x[i]: 4); if i mod 10=0 then writeln; end; End.