ArrayPlot[#,Mesh->True,ImageSize->50]&/@NestList[ReplacePart[#,RandomInteger[{1,5},{2}]->1]&,ConstantArray[0,{5,5}],10]