Hola tengo un problema en el cual me dicen que tengo que ubicar aleatoriamente n robots en un tablero de mxm y quiero saber si hay otra forma de implemtarla aparte de esta
program juego;
type tablero=array[1..m,1..m] of char;
procedure ubica_robots(var t:tablero,n:integer);
var i,j:integer;
begin
i:=random(n)+1;
j:=random(n)+1;
if t[i,j]=' ' then
t[i,j]='R'
end;
esta solucion pienso que es buena pero en algunos casos tiende al infimito lo ucal lo hace ineficiente espero que me puedan ayudar
