Равномерное заполнение двумерного массива

[Evil_Net]

Уже несколько дней ломаю голову над задачей, не получается сделать так как хотелось бы.
Задача собственно заключается вот в чем: есть двумерный массив

a : array [0..9, 0..9] of integer;

Который служит для вывода некой информации в таблицу 10 на 10.
Сначала записываю в него циклом одинаковые значения, допустим "0". Дальше необходимо равномерно! в рандомных местах поставить 10 раз "1". Какой только код не приходил на ум, чаще всего значения находятся рядом друг с другом (в соседних строках, столбцах), т.е. кучность получается. Хотелось бы чтобы равномернее распределялось по полю 10 на 10, с небольшим допущением, что некоторые "1" будут стоять рядом.

[Аватар]

i:=Random(10)
j:=Random(10)
в цикле пока 10 не совпадающих пар получится

[Evil_Net]

Сообщение от Аватар

i:=Random(10)
j:=Random(10)
в цикле пока 10 не совпадающих пар получится

в том то и дело, что я так делаю, результат не нравится

  for i := 1 to 10 do
    for j := 1 to 10 do
      arr[i,j] := 0;
  m := 0;
  Randomize;
  repeat
    Row := Random(10) + 1;
    Col := Random(10) + 1;
    if (arr[Row,Col] = 0) then
      begin
        arr[Row,Col] := 1;
        Inc(m);
      end;
  until m = 10;

[min@y™]

нарисуй и покажь, чо добиться надо.
а то я нихрена не понял.

[Evil_Net]

Сообщение от min@y™

нарисуй и покажь, чо добиться надо.
а то я нихрена не понял.

Привожу четыре примера с квадратом 9 на 9.
В первом квадрате большинство значений оказалось в верхней части и рядом друг с другом.
Во втором квадрате тоже находятся недалеко друг от друга, при этом по разным сторонам квадрата, в центре практически нету.
В третьем квадрате что-то более менее, но есть рядом стоящие.
В четвертом квадрате, вообще скучковались все.

Хотелось бы равномерного распределения "1" по всей площади квадрата.

[min@y™]

Хотелось бы равномерного распределения "1" по всей площади квадрата.

в шахматном порядке?

[evg_m]

предложу СВОЕ понимание "равномерного" распределения 10 единиц в квадрате 10х10.
по одной единичке в каждой строке и колонке.
или же число единиц в каждой строке и каждой колонке ~одинаково (обобщение предыдущего условия).

[min@y™]

в любом случае нужна матмодель. программирование - дело техники.
формулу давай.

[саша40]

Сообщение от min@y™

в любом случае нужна матмодель. программирование - дело техники.
формулу давай.

Да какая тут формула. Это же Судоку только в двоичном виде.

[min@y™]

Да какая тут формула. Это же Судоку только в двоичном виде.

сразу видно мнение специалиста.