Pascal/Turbo Pascal - Programa PASCAL SUPER SENCILLO ARRAY UNI.

uses crt;

var

    v:array[1..100] of integer;

    i,temp:byte;

    n:integer;

begin

    clrscr;

    write('Cuantos elementos tiene el array (max. 100): ');

    readln(n);

    for i:=1 to n do begin

        write('ingrese elemento: ');

        readln(v[i]);

    end;

    temp:=v[n];

    for i:=n downto 2 do

        v[i]:=v[i-1];

    v[1]:=temp;

    for i:=1 to n do

        write(v[i],' ');

end.