imprimir array en orden inverso
Publicado por juan (83 intervenciones) el 24/09/2007 00:37:13
Que tal Diego, mira, no se que anda mal con este programita que quiero ingresar valores a un array e imprimirlos en order inverso, me gustaría saber que estoy haciendo mal, un saludo.
Program ej44laborero;
Type
ggvec=array [1..100] of integer;
Var gg:ggvec;
i,n:byte;
Begin
writeln('Ingrese cuantos valores va a ingresar');
readln(n);
writeln('Los ',n,' valores se emitir n en orden inverso');
for i:=1 to N do
begin
writeln('Ingrese un valor');
readln(gg[i])
end;
for i:=N to 1 do
begin
writeln(gg[i])
end;
readln
end.
Program ej44laborero;
Type
ggvec=array [1..100] of integer;
Var gg:ggvec;
i,n:byte;
Begin
writeln('Ingrese cuantos valores va a ingresar');
readln(n);
writeln('Los ',n,' valores se emitir n en orden inverso');
for i:=1 to N do
begin
writeln('Ingrese un valor');
readln(gg[i])
end;
for i:=N to 1 do
begin
writeln(gg[i])
end;
readln
end.
Valora esta pregunta
0