怎么写算法，在一个二维数组的零值中产生随机数？具体请看！！

Question

bAllNotZero:=true;
Randomize;
for i:=0 to iMaxRow do
    for j:=0 to iMaxCol do
    begin
        if aryTemp[i,j]=0 then
        begin
            bAllNotZero:=false;
            aryTemp[i,j]:=Random;
        end;
    end
if bAllNotZero=true then
/////全不为0

Answer 1

是想随机选取一个为0的数据吧。
iNotZeroCnt:=0;
for i:=0 to iMaxRow do
    for j:=0 to iMaxCol do
        if aryTemp[i,j]=0 then
            inc(iNotZeroCnt);Randomize;
iIndex:=0;
if iNotZeroCnt>0 then
begin
    iPos:=Random(iNotZeroCnt);
    for i:=0 to iMaxRow do
        for j:=0 to iMaxCol do
        begin
            if aryTemp[i,j]=0 then
            begin
                inc(iIndex);
                if iIndex=iPos then
//////////随机找到一个数据，i,j为横、纵坐标。
            end;
        end
end else
/////全不为0

Answer 2

up and try it ,thanks