Hacer un programa en pascal
Quiero hacer un programa en pascal que pida 10 números que son utilizados como arreglos de los cuales en la salida del programa me deben salir en orden descendente.
Por favor que puedo ser
Por favor que puedo ser
1 Respuesta
Respuesta
1
Bien, aquí tienes el programa. Espero te sea de utilidad.
Uses CRT;
Var
TABLA : Array [1..10] of Integer;
i,j,aux : Integer;
Begin
For I:=1 to 10 do
Begin
wRITELN('VALOR ',I);
rEADLN(TABLA);
End;
{Ya están introducidos los números en el arreglo. El siguiente paso es ordenarlos.}
For I:=1 to 10 do
For J:=1 to 10 do
if tabla<tabla[j] then
Begin
Aux:=tabla[j];
tabla[j]:=tabla;
tabla:=aux;
End;
{Ya están ordenados. Ahora los presento en pantalla. Para ordenarlos en sentido contrario, sólo tendrías que cambiar el signo < por >}
Clrscr;
For I:=1 to 10 do
Begin
Writeln(tabla,' ');
End;
readln;
End.
Uses CRT;
Var
TABLA : Array [1..10] of Integer;
i,j,aux : Integer;
Begin
For I:=1 to 10 do
Begin
wRITELN('VALOR ',I);
rEADLN(TABLA);
End;
{Ya están introducidos los números en el arreglo. El siguiente paso es ordenarlos.}
For I:=1 to 10 do
For J:=1 to 10 do
if tabla<tabla[j] then
Begin
Aux:=tabla[j];
tabla[j]:=tabla;
tabla:=aux;
End;
{Ya están ordenados. Ahora los presento en pantalla. Para ordenarlos en sentido contrario, sólo tendrías que cambiar el signo < por >}
Clrscr;
For I:=1 to 10 do
Begin
Writeln(tabla,' ');
End;
readln;
End.