2006/07 – Fase scolastica – 02

Si consideri la seguente funzione:

Const
   N = 5;
Var
   vett1: Array[1..N] Of Integer;
   vett2: Array[1..N] Of Integer;

Procedure calcola();
Var
   i, temp: Integer;
Begin
   For i:=1 To N Do
      vett1[i] := N+1-i;
   For i:=1 To N Do
      Begin
         temp:=vett1[i];
         vett2[temp]:=i-1;
      End
End;

Indicare il contenuto del vettore vett2 al termine dell’esecuzione della procedura calcola().

Risposte:

1. [0, 1, 2, 3, 4]
2. [3, 1, 4, 2, 0]
3. [4, 3, 2, 1, 0]
4. nessuna delle precedenti.