以下功能实现了你的要求，数组元素为200个。

红色部分就是查找的程序。

array[0]:=num_source;                             //num_source:1-200的随机正整数

size(array[0],0,n);                                      //数组array元素个数n

size(k[0],0,p);                                            //数组k元素个数p

if start and not stop then                         //start、stop意在生成一个脉冲和查找开始

     m:=0;

     for q:=0 to p-1 do

           k[q]:=0;

      end_for;                                                //k数组元素值清零

    for i:=n-1 to 1 by -1 do

        array[i]:=array[i-1];

    end_for;                                               //向数组元素填充随机数

    for j:=0 to n-1 do

         if  array[j]=dest_num then            //dest_num：被查找的数

             m:=m+1;

             k[m-1]:=j;                                     //与被查数相同元素的下标存在k数组中。

         else

             exit;

         end_if;

    end_for;                                               //找出数组中与被查找数相同的位置m

end_if;

start:=stop;