Архив форумов ЦИТФорума

[CHEVROLET]

У меня такая проблема. Не получается отсортировать. Все члены массива становятся равны наибольшему. т.е. если массив из 3-ех чисел: 99,85,2 то после сортировки вид будет 99,99,99

Не нахожу ошибку, подскажите кто нить!!!

program baloon;
uses dos;

var i,j,t:byte;
x:array[1..20000]of integer;
h,min,sek,sek100:word;
n:longint;

begin
n:=3; {это для примера (на самом деле n должен = 1500)}
randomize;
for j:=1 to n do begin x[j]:=random(100); write(x[j]:3); end;
writeln;
gettime(h,min,sek,sek100);
writeln('start: ',h,min,sek,sek100);

for i:=2 to n do
for j:=n downto i do
if x[i-1]>x[j] then
begin
t:=x[j-1];
x[j-1]:=x[j];
x[j]:=t;
end;
for i:=1 to j do write(x[j]:3);
writeln;

gettime(h,min,sek,sek100);
writeln('end: ',h,min,sek,sek100);
readln;
end.

[CHEVROLET]

Пробовалa я уже такое сделать.
NO RESULT!

[CHEVROLET]

ВСЕ! НАШЛААААА!!!

не
for i:=1 to j do write(x[j]:3);

а
for i:=1 to j do write(x[i]:3);