Срочно!! Помогите написать программу в турбо паскале!!Огромное человеческое спасибо!! Заполнить массив из 10 элементов случайными числами в интервале от -50 до 50 и отсортировать его по убыванию с помощью алгоритма быс...
Срочно!! Помогите написать программу в турбо паскале!!Огромное человеческое спасибо!! Заполнить массив из 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 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
Не нашли ответ?
Похожие вопросы