Задача: составить программу для вода и расстановки по порядку целых случайных…

type array100=array [1… 100] of integer; var a: array100; i,n: 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 (low