2011/12 – Fase scolastica – 09

Si consideri il seguente frammento programma:

Program E9(Input, Output);
Var T: Array[1..25] Of Integer;
Var S: Array[1..10] Of Integer;
Var W: Array[1..5 ] Of Integer;
Var i: Integer;
Begin
   i:=0;
   While(i <= 24) Do
      Begin
         S[T[i]-1]:=S[T[i]-1]+1;
         i:=i+1;
      End;
   i:=0;
   While(i <= 9) Do
      Begin
         W[S[i]-1]:=W[S[i]-1]+1;
         i:=i+1;
      End
End.

Si supponga che i vettori T, S, e W inizialmente contengano i seguenti valori:

Scrivere il contenuto del vettore W dopo l’esecuzione del programma.