请问这个程序怎么实现

Question

有5个孤立的点，用5*5的矩阵表示， 
a=[0 0 0 0 0; 
      0 0 0 0 0; 
      0 0 0 0 0; 
      0 0 0 0 0; 
      0 0 0 0 0]; 
让这5个点以概率p相互连接，比如p=0.5，使得矩阵上有连边的点的位置上的值为1，请问怎么实现？

Answer 1

randomize()
for i:=1 to 5 do
begin
  for j:=1 to 5 do
    a[i,j]=random(2);
end;

Answer 2

稍微改一下？？
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      if j > i then
      begin
        a[i,j]=random(2);
        a[j,i]= a[i,j];
      end;
    end;
  end;