кто сможет составить таблицу в экселе

Если 10 на 10 ячеек, то это всего 100 ячеек. При этом в задании сказано, чно нужно 50 единиц (1) и 50 нулей (0). 50+50=100. Всавляй на обум 50 единиц в любые ячейки (в квадрат 10 на 10), а в остальные нули. Вот и всё.

Задание в таком виде не очень понятно. Как рассставить 50 едениц, вручную? Т. е. как в 1м ответе? Это получится не случайно. Просто конкретная расстановка, в которой случайность и не видна?
Может надо чего-нидь написать, или алгоритм составить?
Что-то вроде этого

Обнулить таблицу
ЦИКЛ с 1 по 50
Взять случайное число на интервале от 1 до текущего значения
Найти для него место (Х, У)
ВСЁ-ЦИКЛ

получится только в псевдослучайном

я думаю дальше объяснять не надо?
добавляешь округление до целого числа и будут тебе 0 и 1

Во все ячейки поля (предположим A1:J10) вставляем "=ОКРУГЛ (СЛЧИС ();0)" (без кавычек) . Функция СЛЧИС "возвращает равномерно распределенное (псевдо- СШ) случайное число, большее либо равное 0 и меньшее 1. Новое случайное число возвращается при каждом вычислении рабочего листа". Функция ОКРУГЛ с вторым аргументом равным 0 округляет это случайное число до целого, то есть с вероятностью 1/2 возвращает либо 0, либо 1.
Понятно, что единичек будет не обязательно ровно 50. Тогда в одну из ячеек вне поля (например в А12) помещаем функцию "=СУММ (A1:J10)", которая посчитаем нам сколько единичек получилось. Если не 50, нажимаем F9 (вычислить).. .случайные числа пересчитаются и мы получим новый вариант. Обычно двух-трех итераций достаточно, чтобы получить искомое.
Если нажимать лень, можно воспользоваться макросом:

Sub one_50()
' one_50 Макрос
Do
Calculate
Loop Until Workbooks("книга1").Sheets("Лист2").Range("A12").Value = 50
End Sub

Который сделает это за вас :)