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

 
Vista:
sin imagen de perfil

Programa PASCAL SUPER SENCILLO ARRAY UNI.

Publicado por Malic (1 intervención) el 21/01/2017 12:24:07
Hola,por favor si alguien me podría ayudar se lo agradecería...
Introduzca un array de n componentes(integer).Desplace todos los componentes del array con una posicion a la derecha,de tal modo que el último componente ocupe el primer componente...
por ejemplo,si tenemos 1,2,3,4,5 entonces el resultado seria 5,1,2,3,4
muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Programa PASCAL SUPER SENCILLO ARRAY UNI.

Publicado por dario (42 intervenciones) el 18/04/2017 16:30:27
Si aun lo quieres te dejo el codigo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar