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
1

1 respuesta

1
Respuesta de Anónimo
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.
Saludos.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Pascal o hacer tu propia pregunta: