Написать программу в турбо человеческое заполнить массив из 10 элементов случайными числами в интервалеот-50 до 50 и отсортировать его по убыванию с алгоритма быстрой сортировки.

const low=1; high=10;

procedure qsort(var ar: array[low..high]of real; low,high: integer); var i,j: integer; m,wsp: real; begin i: =low; j: =high; m: =ar[(i+j) div 2]; repeat while(ar[i]< m) do i: =i+1; while(ar[j]> m) do j: =j-1; if(i< =j) then begin wsp: =ar[i]; ar[i]: =ar[j]; ar[j]: =wsp; i: =i+1; j: =j-1; end; until (i > j); if(low< j) then qsort(ar,low,j); if(i< high) then qsort(ar,i,high); end;

var ar: array[low..high]of real; i: integer; beginrandomize;

for i: =low to high do ar[i]: =random(101)-50; qsort(ar,low,high); writeln; for i: =low to high do write(ar[i],' '); end.

давай будем делать как отладчик)

конец первого круга: (1 < n) (не запускается если это не правда)

i = i * 2 = 2; s = s + i = 2;

конец второго круга : (2 < n) (не запускается если это не правда)

i = i * 2 = 4; s = s + i = 6 (2 + 4);

конец третьего круга (4 < n) (не запускается если это не правда)

i = i * 2 = 8; s = s + i = 14 (6 + 8)

конец четвертого круга (8 < n) (не запускается если это не правда)

i = i * 2 = 16; s = s + i = 30 (16 + 14)

внимание: здесь s > 14 (и будет только увеличиваться)

=> 4 < n < = 8 => максимальное   n = 8