一个Mathematica5.2问题，高手帮忙呀

luws

Mathematica5.2  问题，高手帮忙呀
如：1。Table[Floor[100*Random[]], {20}]   
产生一个随机表：       {66, 39, 86, 22, 19, 44, 2, 72, 30, 75, 85, 61, 31, 92, 63, 14, 83, 57, 67, 22 }
编一个Mathematica小程序，将上表中3的倍数
换成a，其它数不变，如  {a, a, 86, 22, 19, 44, 2, a, a, a,85, 61, 31, 92, a, 14, 83, a, 67, 22 }
      2。{19,16, 8,  26, 13, 40, 44, 58,5,  22, 17,20, 1}
编一个Mathematica小程序，
i)  将上表中偶数换成k，奇数换成j 或不换
{19,k, k,  k, 13, k, k, k,5,  k, 17,k, 1}或{j,k, k,  k, j, k, k, k,j,  k, j,k, j}
ii)  将上表中的连续k继续换，换成个数{19,3k, 13, 3k,5,  3k, 17,1k, 1}或{j,3k j,3k,j,  1k, j,1k, j}
编成的Mathematica程序，对一般的表也适用。