2000/01 – Fase scolastica – 16

Dire quale dei programmi seguenti ordina il vettore di interi v contenente n elementi:

1. For i:=1 To n Do
      Begin
         m:=i;
         For j:=i+1 To n Do
            If(v[j] < v[m]) Then
               m:=j;
         t:=v[m];
         v[m]:=v[i];
         v[i]:=t
      End;

2. For i:=1 To n Do
      Begin
         m:=v[i];
         For j:=i+1 To n Do
            If(j < m) Then
               m:=j;
         t:=v[m];
         v[m]:=v[i];
         v[i]:=t
      End;

3. For i:=1 To n Do
      Begin
         m := i;
         For j:=i+1 To n Do
            If(v[j] < v[m]) Then
               m:=j;
         t:=v[m];
         v[m]:=v[j];
         v[j]:=t
      End;