Как правельно сделать я незнаю
вот подсказка
Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
С помощью трех битов можно закодировать 7 значений
а это значит что в коробке может быть до 7 шаров
I=N*K
N=15,по умолчанию K=8 бит
<span>I=15*8=120
Через Дано будет также</span>
К=64х32х10=20480 символов решение: I=K*i
i=8бит 20480х8=163840 бит
Найти: I 163840:8=20480 Байт
20480: 1024=20 Кбайт