Одномерные массивы. Немного не понимаю(

[mun_nw]

Program ss;
const m=100;
var a:array[1..m] of integer;
i,n:integer
;begin
writeln('vvedite n');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(n);
 writeln('a[',i,']=', A[i]);
 end;
 for i:=1 to n do begin
 a[1] := a[n];
 end;for i:=1 to n do begin
 writeln('a[',i,']=', A[i]);
 end; end.

Вот программа, она ставит на место 1 элемента, последний, и выводит сначала оригинальный массив, а потом измененный. Только мне надо, что бы при выводе измененного массива, он сдвигал массив и не показывал последний элемент. т.е например оригинальный массив 12345, а измененный должен быть 5234.

[ByAlex]

Дак вы просто выводите массив до n-1 элемента и все.

for i:= to n-1 do
   write(A[i],' ');

[mun_nw]

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

Дак вы просто выводите массив до n-1 элемента и все.

for i:= to n-1 do
   write(A[i],' ');

и еще, я коеч то напутал, должно быть вот так, он сдвигом должен делатьЖ 12345 ----- 51234

const Nmax=1000;
var a: array [1..Nmax] of integer;
i,n:integer;
begin
N:=5;
for i:=1 to N do
A[i]:=i;
for i:=1 to N do
writeln('a[',i,']=', A[i]);

for i:=N downto 1 do

A[i+1]:=A[i];
A[1]:=A[N+1];


for i:=1 to N do
writeln('a[',i,']=', A[i]);
end.
Вот как эта делает. Только нужно рандомно что бы массив заполнялся.

[Hacker19_90]

нужно рандомно что бы массив заполнялся.

randomize;
for i := 1 to n do
    a[i] := random(_ТУТ_УКАЖИ_РЕНЖ_РАНДОМА_);
{К примеру random(100) сгенерирует число от 0 до 99}

[ByAlex]

Просто делай перестановки элементов!

[mun_nw]

а пример можно? )

[Hacker19_90]

пример чего?

[mun_nw]

Program ss;
const m=100;
var a:array[1..m] of integer;
i,n:integer
;begin
writeln('vvedite n');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(n);
writeln('a[',i,']=', A[i]);
end;
for i:=1 to n do begin
a[1] := a[n];
end;for i:=1 to n do begin
writeln('a[',i,']=', A[i]);
end; end.

Если можешь переделать эту программу так, что бы она выводила dот так массив например: он рандомно ввел массив например 12345, а вывел 51234. т.е последний элемент поставил на первое место и сдвинул массив не удаляя первый элемент из массива.

[ByAlex]

Как то так -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  arr:array[1..100] of integer;
  a,i,t,n:integer;
begin
  write('Vvedite n - ');
  readln(n);
  for i := 1 to n do
    Arr[i]:=Random(25);
  a:=Arr[1];
  for i := 2 to n do
  begin
    t:=arr[i];
    Arr[i]:=a;
    if i=n then
    begin
      Arr[1]:=t;
    end;
    a:=t;
  end;
  writeln('Result = ');
  for i := 1 to n do
    write(arr[i],' ');
  readln;
end.

[mun_nw]

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

Как то так -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  arr:array[1..100] of integer;
  a,i,t,n:integer;
begin
  write('Vvedite n - ');
  readln(n);
  for i := 1 to n do
    Arr[i]:=Random(25);
  a:=Arr[1];
  for i := 2 to n do
  begin
    t:=arr[i];
    Arr[i]:=a;
    if i=n then
    begin
      Arr[1]:=t;
    end;
    a:=t;
  end;
  writeln('Result = ');
  for i := 1 to n do
    write(arr[i],' ');
  readln;
end.

она только результат выводит, а как и оригинал вывести .а потом измененный?