Инвертирование массива

[ACAB59]

ну возможно замену первого с последним сделать так!

for i:=1 to n do
begin
m:=a[i];
k:=a[n-i];
a[i]:=k;
a[n-i]:=m;
end;

что то типа такого!

[TinMan]

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

ну возможно замену первого с последним сделать так!

for i:=1 to n do
begin
m:=a[i];
k:=a[n-i];
a[i]:=k;
a[n-i]:=m;
end;

Нет, АСАВ59, я вынужден тебя огорчить: так невозможно.

[Serge_Bliznykov]

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

Инвертировать вторую половину массива.

netiv, а давайте поступим так.
я Вам дам два массива, а Вы запишете, как они будут выглядеть после "инвертирования"

Массив 1

1 2 3 4 5 6 7 8

Массив 2

1 2 3 4 5 6 7 8 9

p.s. внизу есть "Похожие темы". Первая же ссылочка "Одномерный массив, инвертирование" привела Вас к теме, где kitty19 в пост #4 дала ответ. Только там инвертируетс весь массив целиком. но если понять идею, то элементарно сделать то же самое со второй половиной вашего массива! Ведь вторая половина - это тоже одномерный массив. только размером в два раза меньше, и который начинается не 1-го элемента, а с (N div 2)+1 - го....

[netiv]

Всё всем спасибо, сделал.

for i:=1 to (n div 2) div 2 do begin
b:=a[n-i+1];
a[n-i+1]:=a[(n div 2)+i];
a[(n div 2)+i]:=b;
end;