Правельный ли код

[ALEXandr20333]

Задан массив X[1..20], элементы которого выбираются случайным образом из отрезка [-30, 80]. Отсортировать все элементы с 5-го по 15-й по убыванию с помощью быстрой сортировки.
вот подскажите это подойдет для решения этой задачи procedure quicksort;

procedure sort (l,r: index);
var i, j: index;
   x,w: item;
begin 
i := l; j : = r;
x:= a[(l+r) dlv 2]; 
repeat
while a[i] < x  do i:= i+1;
while x < a[j] do j : = j-1;
 if i <=j then
 	begin w := a[i]; a[i] := a[j]; a[j]:= w; 
i:= i+1; j:= j-1;
end 
until j > i; 

if l< j then sort(l,j); 
if i < r then sort(i,r);
end ;
begin sort(l,n) 
end{quicksort

[ZX Spectrum-128]

Этот код из примеров, шедших в комплекте с borland pascal. Почему он должен быть неправильным.

[ALEXandr20333]

значит его как то можно реализовать и в задачи???????????

[Stilet]

Ну почему бы нет )
Чего стесняешься - попробуй. Если что - подкорректируем.

[ALEXandr20333]

const n = 20;
type myarray = array[1..n] of integer;
var a:myarray;
Procedure sorting1(var a:myarray);
var i,j,k,m:integer;
begin
for i:= n downto 2 do
begin
k:=i; m:=a[i];
for j:= 1 to i-1 do
if a[j] > m then begin k:=j; m:=a[k] end;
if k <> i then
begin a[k]:=a[i]; a[i]:= m; end;
end;
end;
var i,j:integer;
k,m:integer;
begin

   for i:=1 to n do begin a[i]:=random(30)+80;
   sorting1(a);
   writeln('Îòñîðòèðîâàíí
ûé ìàññèâ8:');
   for i:=1 to 20 do write(a[i],' ');
   writeln;
   end;
end.

не знаю как но по-мойму вот так если нет то помоги

[ZX Spectrum-128]

Вот эту строчку

for i:=1 to 20 do write(a[i],' ');

Вставьте еще до sorting1 и сразу увидите, работает или нет.

const
  n = 20;
type
  myarray = array[1..n] of integer;
var
  b:myarray;
  i,j:integer;
  k,m:integer;

Procedure sorting1(var a:myarray);
var
  i,j,k,m:integer;
begin
for i:= n downto 2 do
begin
k:=i; m:=a[i];
for j:= 1 to i-1 do
if a[j] > m then begin k:=j; m:=a[k] end;
if k <> i then
begin a[k]:=a[i]; a[i]:= m; end;
end;
end;

begin
  randomize; 
  for i:=1 to n do
    b[i]:=random(30)+80;
  writeln('Original array:');
  for i:=1 to n do
    write(b[i],' ');
  sorting1(b);
  writeln;
  writeln('Sorted array:');
  for i:=1 to n do
    write(b[i],' ');
  readln;
end.