Помогите зделать програму без cons.Вот мое решение етой задачи.
program QuickSort;
const n=20;
var a:array[1..n] of integer;
i:word;
procedure QSort(l,r:word);
var b,tmp:integer;
i,j:word;
begin
b:=a[(l+r) div 2];
i:=l; j:=r;
while i<=j do
begin
while a[i]<b do i:=i+1;
while a[j]>b do j:=j-1;
if i<=j then
begin
tmp:=a[i];
a[i]:=a[j];
a[j]:=tmp;
i:=i+1;
j:=j-1;
end;
end;
if l<j then QSort(l,j);
if i<r then QSort(i,r);
end;
begin
writeln('chuslo:');
for i:=1 to n do read(a[i]);
readln;
QSort(1,n);
writeln('masuv:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
end.
Нужно поставить цифры в порядке увеличения!Подскажыте что у меня не верно.

В DRKB ето все есть :

Код

Program QuickSort;  Var A  : array[1..1000] of integer;      N,T : integer;   Procedure Sort(p,q : integer); {p,q — индексы начала и конца сортируемой части массива}  Var i,j,r : integer;  Begin   if p<q then {массив из одного элемента тривиально упорядочен}   begin    r:=A[p];    i:=p-1;    j:=q+1;    while i<j do     begin      repeat       i:=i+1;      until A[i]>=r;      repeat       j:=j-1;      until A[j]<=r;      if i<j then       begin        T:=A[i];        A[i]:=A[j];        A[j]:=T;       end;     end;    Sort(p,j);    Sort(j+1,q);   end;  End;  Begin   {Определение размера массива A — N) и его заполнение}   …   {запуск сортирующей процедуры}   Sort(1,N);   {Вывод отсортированного массива A}    …  End.

P.S. Используй вставки для кода. Гораздо читабельнее.

У меня выбивает ошыбка:cannot read of write on variables of this type.Общем она не роботает.Может ты найдеш ошыбку быстрей!!!

Врятли, что здесь что-то не правильно. Скорее всего ты просто напутал где-то с совместимостью с типами данных. Тебе компилер про это и сказал.

Напиши свой вариан только без етих объяснений !!!