2012/13 – Fase scolastica – 12

16/10/2014 di admin

Si consideri la seguente procedura:

Const
   N = 10;
Var
   vett: Array[0..N-1] Of Integer;
Procedure p();
Var
   i: Integer;
Begin
   For i:=0 To N-1 Do
      vett[i]:=i;
   For i:=0 To N-1 Do
      vett[i]:=vett[vett[i] Mod (N-i)]
End;

Indicare il contenuto di tutti gli elementi del vettore vett[] al termine della procedura.