Сообщение о том что ваш друг живёт на третьем этаже несёт 3 бита информации определить сколько этажей в доме?

Возрастание:

const n=10;

var a:array [1..n] of integer;

i,j,v:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i],'  ')

end;

writeln;

for i:=1 to n do

for j:=1 to n-i do

if a[j]>a[j+1] then

begin

v:=a[j];

a[j]:=a[j+1];

a[j+1]:=v

end;

write('Отсортированный массив: ');

for i:=1 to n do write(a[i],'  ');

end.

Убывание:

const n=10;

var a:array [1..n] of integer;

i,j,v:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i],'  ')

end;

writeln;

for i:=1 to n do

for j:=1 to n-i do

if a[j]<a[j+1] then

begin

v:=a[j];

a[j]:=a[j+1];

a[j+1]:=v

end;

write('Отсортированный массив: ');

for i:=1 to n do write(a[i],'  ');

end.

Заметим, что есть условие, проверяющее, является ли какой-нибудь элемент массива Sea больше 220. Сразу же откидываем все элементы, которые меньше 220: 1, 2, 3, 4, 6 (поскольку 220 не больше 220, а равно), 8, 9, 10, 11, 12. Остаются элементы 5 и 7. После того, как оператор (то, что проверяется) в условии равен истине, выполняется увеличение переменной s на величину элемента массива. У нас через условие лишь два элемента, поэтому, к существующей переменной s, равной 1 мы добавляем 230 (5-й элемент) и 240 (7-й элемент) и получаем:

100 + 230 + 240 = 570

570