Formato de programación CNC g96.g97.g99.g50

var num,temp,k,loop1,loop2:longint;

a:array[1..1000] of longint;

comenzar

readln(num);//Número de datos leídos

for loop1:=1to num do

read(a[loop1]);//lectura en progreso Ordenado datos

for bucle1:=1a num-1 hacer

comenzar

k:= bucle1;

for bucle2:= bucle1+ 1to num do

ifa[k]>a[loop2]entonces

k:=loop2;//Compara para obtener el número mínimo

ifk< > loop1then//Optimizar para ahorrar tiempo

comenzar

temp:=a[k];

a[k]:=a[loop1]; p>

a[loop1]:=temp;//Intercambiar datos

end;

forloop1:=1a num do

write(a[loop1],'');//Envía los datos ordenados

readln;

end .