не могу отсортировать одномерный массив

[kametto]

я что то не могу сообразить. помогите пожалуйста отсортировать одномерный массив "ST" размерности i+1 по убыванию. ,,

[Hacker19_90]

метод сортировки какой?

//можно так
for i := 1 to n -1 do
  for j := i + 1 to n do
    if a[i] < a[j] then
    begin
      a[i] := a[i] xor a[j];
      a[j] := a[i] xor a[j];
      a[i] := a[i] xor a[j];
    end;

//можно так
repeat
  isSwap := false;
  for i := 1 to n - 1 do
    if a[i] < a[i+1] then
    begin
      a[i] := a[i] xor a[i+1];
      a[i+1] := a[i] xor a[i+1];
      a[i] := a[i] xor a[i+1];
    end;
until isSwap = false;

щя ещё вспомню как

[kametto]

а ничего что размерность не n а i+1?

begin
 SetLength(st,i+1);
 k:=pos(' ',s);
 st[i]:=(copy(s,1,k-1));
 delete(s,1,k);
 k:=pos(' ',s);
 i:=i+1;
 end;
   begin
    for j:=1 to i  do
    for p:=j+1   to i+1 do
     if st[j]<st[p-1] then
        begin
        v:=st[j];
        st[j]:=st[p-1];
        st[p-1]:=v;
        end;

        for j:=0 to i-1 do
        begin
        s2:=s2+' '+st[j];
        end;

я сделала так но там одна цифра постояянно выскакивает вперед. что тот неправильно

[Hacker19_90]

дак у вас же динамика индексация другая
вот
подправлена сортировка

for j:=0 to i - 2 do
for p:=j+1 to i - 1 do
if st[j]<st[p] then
begin
v:=st[j];
st[j]:=st[p];
st[p]:=v;
end;

[kametto]

все равно что то не работает. мне нужно остортировать числа 6 15 75 74. а оно выбивает 75 74 6 15

[Hacker19_90]

Ну так это потому что мы строки сортируем!так и будет помоему
так как код 6 больше кода 1 поэтому 6 больше 15
(хотя там сравнение длины ещё должно быть... хм.)
Ну попробуйте списывать это не в массив строк
а в массив чисел!

[kametto]

так, у меня есть массив строк с этими четырьмя элементами, сама лаборатрная о работе с файлами. мне нужно открыть файл взять из него числа для массива. после этого у меня есть просто массив строк и отсортировать числа по убыванию.надо чтобы 6 было в конце)

[Hacker19_90]

так перевиде же эти строки в числа! и работайте с ними как с числами
КОРОЧЕ Вот так

for j:=0 to i - 2 do
for p:=j+1 to i - 1 do
if StrToInt(st[j])<StrToInt(st[p]) then
begin
v:=st[j];
st[j]:=st[p];
st[p]:=v;
end;

[kametto]

Огромной спасибо!!! все получилось!!!!!!!! только можешь мне подробнее обьяснить чем масси строк отличается от обычного?

[Hacker19_90]

тем что строки это не числа(если вы про них)
числа сравниваются по их значению
строки как бе тоже
НО сравниваются строки посимвольно
по кодам символов!
ВОт и получается что 6 больше 15 так как
код 6 это 52 а код 1 это 49
Как - то так!