3-сурет. "Ақылды үй”жобасы помагите

36.

Объяснение:

1. Ищем путь в таблице, который является уникальным, то есть отличается количеством путей. Таким пунктом является "П3", так как только у него есть два пути.

Ищем на схеме пункт с двумя путями. Это пункт "К". Отмечаем его, как "П3".

Итого получаем: "К" - "П3".

2. Смотрим какие пункты соединены с "П3". Это пункты "П2" и "П5".

У пункта "П2" 4 пути, у пункта "П5" 3 пути.

Ищем на схеме пункт, который связан с "К" и имеет 3 пути (берем именно три, так как нам нужно расстояние от В до Е, где В имеет три пути). Это пункт "Е". Отмечаем его, как "П5".

Итого получаем: "К" - "П3", "Е" - "П5".

3. Ищем в таблице пункт, который связан с "П5" и имеет три пути. "П2" не подходит, так как имеет 4 пути, "П3" мы уже соотнесли с "К". Подходит пункт "П7", так как он имеет три пути и связан с "П5". Соотнесем пункт "В" с "П7".

Итого получаем: "К" - "П3", "Е" - "П5", "В" - "П7".

Так как мы нашли пункты, которые соответствую В и Е, то можем найти расстояние между ними. В итоге, расстояние равно 36.

Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer; 
b:array [1..10] of longint;   
c:integer;   
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n); 
max:=0; 
for i:=1 to 10 do 
b[i]:=0; 
for i:=1 to n do  begin 
a[i]:=random(10)+1; 
write(a[i],' '); 
b[a[i]]:=b[a[i]]+1 
end; 
for i:=1 to 10 do if b[i]>max then 
begin 
c:=i; 
max:=b[i] 
end; 
writeln; 
writeln('Чаще всего в массиве встречается число ',c)
end.