Delphi Массив - смещение на позицию

[Danara]

Здравствуйте, хотелось бы узнать, с помощью какого кода можно передвинуть массив на одну позицию. Пример массив в dbgrid:

1 4 6 7 8 9 должен стать 9 1 4 6 7 8

[Chudo4258]

k:=a[n];
for i:=n-1 downto 1 do
 a[i]:=a[i+1];
a[1]:=k;

[Grag]

Немного не так... Смещение нужно делать "вправо", судя по примеру ТС.

[Utkin]

Копировать массивы можно используя например функцию move.

[Grag]

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

k:=a[n];
for i:=n-1 downto 1 do
 a[i]:=a[i+1];
a[1]:=k;

Проверено... Заключение - код работает НЕВЕРНО!

[Chudo4258]

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a: array [1..10]of integer;
    i,n,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n='); readln(n);
for i:=1 to n do
 begin
  write('A[',i,']= '); readln(a[i]);
 end;

k:=a[n];
for i:=n downto 2 do
 a[i]:=a[i-1];
a[1]:=k;

for i:=1 to n do
 write(a[i]:5);
readln
end.

14.05.jpg

[Danara]

СПАСИБО БОЛЬШОЕ =*