массив

[begemotikdin]

Всем привет!!! у меня возник небольшой вопрос. Как поменять местами элеиенты массива, т.е. к примеру есть массив
x=(x1,x2,x3,.......x15)
после преобразования должен выглядеть таким образом
x=(x13,x14,x15.......x1,x2,x3)
плиз подскажите

[alexBlack]

А середину не трогаете ?
Что мешает просто поменять
x1 <-> x13
x2 <-> x14
x3 <-> x15
можно в цикле

[begemotikdin]

да это нуна в цикле, но у меня загвозка. Делаю цикл и не получается, проводя операцию в цикле не могу опереться как его можно увеличить
делая for....., но если их у меня 100 элементов. т.е как поменять, дайте плиз подсказку!!!! Пасибки!!!

[alexBlack]

Сообщение от begemotikdin

да это нуна в цикле, но у меня загвозка. Делаю цикл и не получается, проводя операцию в цикле не могу опереться как его можно увеличить
делая for....., но если их у меня 100 элементов. т.е как поменять, дайте плиз подсказку!!!! Пасибки!!!

Если как у Вас в примере, то так:

N - размер массива (15)
for i:=1 to 3 do begin
    // элемент x[i] меняем с x[N-3+i]
    t := x[i];
    x[i] := x[N-3+i]
    x[N-3+i] := t
end;

[alexBlack]

Это-ж надо так переделать.
В конце замените:

   if n >= 6 then begin
      for p:=1 to 3 do begin
        buf:=x[p];
        x[p]:=x[n-3+p];
        x[n-3+p]:=buf;
      end;
   end;

[begemotikdin]

Большое спасибо!!! Сам себя запутал!!!