Question

Caricato in memoria un vettore di 20 elementi , ordinarlo con il metodo dell'ordinamento a bolla. Stampare il vettore in maniera ordinata.

Answer 1

program Ordinamento;

const
 max = 20;

var
 v:array[1..max] of integer;
 app, alto, i:integer

begin
 
(* Inserimento dati *)
 for (i := 1) to (max) do
  begin
   write("Dammi il valore n°", i, ":");
   readln(app);
   v[i]:=app;
  end;

(* Ordinamento vettore *)
 alto := max;
 while (alto > 0) do
  begin
   for (i := 1) to (alto) do
    if (v[i] > v[i + 1]) then
     begin
      app := v[i];
      v[i] := v[i + 1];
      v[i + 1] := app;
     end;
   alto := alto -1;
  end;

(* Stampa valori *)
 writeln("Stampo i valori ordinati");
 for (i := 1) to (max) do   
   writeln(i, "°:",v[i]);

end.