программа в паскале

[denis2010]

Помогите пожалуйста, как расположить элементы массива в обратном порядке, без использования доп. массива???
Дан некоторый массив: например x:array[1..33] как как расположить элементы массива в обратном порядке?

[Namolem]

цикл i от 1 до N/2
поменять значения элементов i и N-i+1

[Базиля]

for i:=1 to n div 2 do
begin
p:=a[i];
a[i]:=a[n];
a[n]:=p;
dec(n);
end;

[Базиля]

Namolem

i и N-i+1

так не будет работать правильно

[Serge_Bliznykov]

так не будет работать правильно

почему это не будет?! Будет!
при i=1 выражение N-i+1 = N
при i=2 — выражение = N - 1
и т.д.
в чём проблема то?
в вот изменять количество элементов в массиве (как это сделали Вы - dec(n)) я лично категорически не рекомендую! ведь n ещё потребуется(например, чтобы выдать полученный массив), а там уже мусор... ;(

[Базиля]

в вот изменять количество элементов в массиве (как это сделали Вы - dec(n)) я лично категорически не рекомендую! ведь n ещё потребуется(например, чтобы выдать полученный массив), а там уже мусор... ;(

не подумал об этом, спасибо!
тогда вот так:

l:=n;
for i:=1 to n div 2 do
begin
p:=a[i];
a[i]:=a[l];
a[l]:=p;
dec(l);
end;

почему это не будет?! Будет!
при i=1 выражение N-i+1 = N
при i=2 — выражение = N - 1

да все в порядке вставлял в код просто, проверял, не правильно делал перестановку, щас опять попробовал, все в порядке

[val_nnm]

а мне больше нравится в такой форме

i=1; //первый элемент в массиве
j=n; // последний элемент в массива
while (i<j) do Begin
  temp = a[i];
  a[i] = a[j];
  a[j] = temp;
  i = i+1;
  j = j-1;
End;

[Serge_Bliznykov]

val_nnm, угу, так тоже можно. но по сути это ничем не отличается от метода предложенного выше...

[val_nnm]

А если у нас целочисленный массив то можно ещё сделать так

  i:=1;
  j:=n;
  while (i<j) do Begin
    a[i] := a[i] xor a[j];
    a[j] := a[i] xor a[j];
    a[i] := a[i] xor a[j];
    i := i+1;
    j := j-1;
  End;

[Serge_Bliznykov]

если у нас целочисленный массив то можно ещё сделать так

можно. но не нужно! и вообще использование подобных "хакерских методов" без крайней необходимости НЕ ЖЕЛАТЕЛЬНО!!
впрочем, это дело вкуса...