!set titb=??
!set keyw=
!set datm=20050115
!set prev=
!set next=
!set upbl=main
!set dat1=19000101
!set dat2=24000101

!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif

!exit

:content
<pre class="fichier">
<div class="variable">
\author{Ambali}
\integer{m = randint(1..wims(recordcnt tableau))}
\matrix{Tableau = }
\text{Tableau = randrow(wims(record \m of tableau))}
\matrix{A = slib(text/cutchoices \Tableau)}
\text{cntrow=rows(\A)}
\integer{cntQ=(\cntrow-\cntrow%2)/2}
\matrix{good1 =}
\text{rep = }
\for{i= 1 to \cntQ}{
  \text{good=\A[2*\i;]}
  \text{cnt = items(\good)}
  \text{mix = shuffle(\cnt)}
  \matrix{good1=\good1
  \good[\mix]}
  \text{rep = \rep, position(1,\mix)}
}
\text{rep =wims(nonempty items \rep)}
\text{STEP = wims(makelist r x for x = 1 to \cntQ)}
\steps{\STEP}
</div>
<div class="statement">
\statement{&lt;p style="text-align &#58; center;
background-color &#58; #faffe6;
padding &#58; 1%;
margin &#58; 5% 20%;">
\for{k = 1 to \cntQ}{\A[2*\k-1;]  \embed{r \k} }
   \A[2*\cntQ+1;]
&lt;p/>}
</div>
<div class="variable">
\answer{}{\rep[1];\good1[1;]}{type=menu}
\answer{}{\rep[2];\good1[2;]}{type=menu}
\answer{}{\rep[3];\good1[3;]}{type=menu}
</div>
</pre>
