Anónimo respondió:
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...