program OrdinamentoPerSelezione; {$APPTYPE CONSOLE} var a: array[1..100] of Integer; n: Integer; procedure Legge; var i: Integer; begin for i:=1 to n do begin Write('a[', i, ']? '); ReadLn(a[i]); end; end; procedure Scrive; var i: Integer; begin for i:=1 to n do WriteLn('a[', i, ']= ', a[i]); end; procedure Scambia(var x, y: Integer); var t: Integer; begin t:=x; x:=y; y:=t; end; procedure Ordina; var i, j: Integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then Scambia(a[i], a[j]); end; begin Write('Quanti elementi? '); ReadLn(n); Legge; Ordina; WriteLn('Array ordinato'); Scrive; ReadLn; end.