Originariamente inviato da cso
ho modificato il programma in modo che se cambi la costante N e ci metti un valore + grande o piccolo ordina lo stesso:
codice:
PROGRAM Ordine_cresciente;

USES crt;

CONST n=7; {se vuoi ordinare 100 numeri metti n=100 :) }

VAR a:   array[1..n] of real;
    i,j: integer;
    tmp: real;

BEGIN
  clrscr;
  i:=1;

  REPEAT
    write('Inserisci il ',i,'ø numero: ');
    readln(a[i]);
    i:=i+1;
  UNTIL ((i-1)=n);

  FOR i:=1 TO (n-1) DO {occhio all'N-1}
                FOR j:=i+1 TO n DO
                                IF (a[j]<a[i]) THEN
                                               BEGIN
                                               tmp:=a[i];
                                               a[i]:=a[j];
                                               a[j]:=tmp;
                                               END;
  i:=1;
  writeln;

  REPEAT
    writeln('Il ',i,'ø e'': ',a[i]:1:2);
    i:=i+1;
  UNTIL ((i-1)=n);

  readln;
END.