Practica #5 (28 de abril del 2015)

Problema #1 (Estrada Perez Manuel Alejandro)

Problema #4  (Jorge Hernandez Sayas)

 Inicio
Real valor[25];
Real i,j,temp;
srand(time(NULL));
write,"Arreglo original"
for(i = 0; i < 25; i++)
valor[i]= rand()%100+1;
write,setw(5),valor[i];
for(i = 0; i < 25; i++)
for(j = i+1; j < 25; j++)
if(valor[j]<valor[i])
temp = valor[j];
valor[j] = valor[i];
valor[i]= valor[j];
valor[i]= temp;
write,"Arreglo ordenado"
for(i=0;i<25;i++)
write,setw(5),valor[i];

Problema2