Имеется пять шаров: белый, желтый, зеленый, красный, синий. в каждый из пяти пронумерованных ящиков положили по одному шару и закрыли его. пятерых попросили отгадать цвета шаров, находящихся в любых трех ящиках. они сделали следующие предположения: артем: желтый шар в 5-м ящике, белый шар в 4-м ящике, синий шар во 2-м ящике; борис: желтый шар в 1-м ящике, белый шар во 2-м ящике, синий шар в 3-м ящике; вадим: красный шар в 1-м ящике, белый шар в 4-м ящике, синий шар во 2-м ящике; глеб: белый шар в 3-м ящике, зеленый шар в 5-м ящике, красный шар во 2-м ящике; дмитрий: красный шар в 5-м ящике, синий шар в 1-м ящике, желтый шар в 3-м ящике. после открывания ящиков выяснилось, что каждый из сделал ровно одно верное предположение. определите цвет шара, находящегося в каждом ящике. в ответе перечислите подряд без пробелов первые буквы цветов шаров в порядке занятых ими ящиков.

Информационная неопределенность (количество возможных результатов события) равна 16. Будем задавать вопросы, на которые можно ответить только «да» или «нет». Вопрос будем ставить так, чтобы каждый ответ приносил 1 бит информации, т.е. уменьшал информационную неопределенность в два раза.
Задаем вопросы: - Друг живет выше 8-го этажа?
Нет.
После этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. Получен 1 бит информации.
 Друг живет выше 4-го этажа?
Да.
Число вариантов уменьшилось еще в два раза, получен еще 1 бит информации.
Друг живет выше 6-го этажа?
Да.
После данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. Получен еще 1 бит информации.
Друг живет на 7-м этаже?
Нет.
Все ясно. Друг живет на 8-м этаже.
Каждый ответ уменьшал информационную неопределенность в два раза. Всего было задано 4 вопроса. Получено 4 бита информации. Сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.

1)
const n=10;
var a:array[1..n] of integer;
i,min,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(81)+10;
write(a[i]:4);
end;
writeln;
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
s:=s+a[i];
end;
writeln('min = ',min);
writeln('s = ',s);
end.

Пример:
 54 58 67 78 58 79 54 78 44 60
min = 44
s = 630

2)
const n=9; m=6;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do a[i,j]:=i;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
end.

Результат: 
111111
222222
333333
444444
555555
666666
777777
888888
999999