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

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.
Saludos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Eliminar repetidos secuenciales en un array

1 respuesta - Hola compañero experto, quería saber como podría solucionar el siguiente...

¿Alguien me podría ayudar con pascal?

1 respuesta - Tengo un problema con un ejercicio de pascal, no lo entiendo y no se como...

Estoy aprendiendo a programar en Pascal y me he encontrado con un pequeño problema

1 respuesta - Hola: Quizá este muy usada la frese, pero estoy aprendiendo a usar pascal y...

Ayuda pascal

1 respuesta - ¿Hola... Mira una preguntica tu de casualidad has llegado a programar un...

Duda pascal... Carga de archivo

1 respuesta - Hola otra vez... Mira esta vez vengo a preguntarte si yo hago un block de...

Una duda con las matrices en pascal

2 respuestas - Hola... Mira mi problema esta en como puedo hacer para que un usuario me...

Otra duda con las matrices

1 respuesta - Hola... Otra vez con otra duda con las matrices de pascal esta vez necesito...

Árbol binario en pascal

1 respuesta - Hola como estas, soy nuevo acá, me cree la cuenta ayer así que no se bien...