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