Структура связей показана в прилагаемом рисунке.
Если я правильно понял, всё таки нужно чтобы робот в конце не разбился.
Вот алгоритм такого передвижения (у меня робот изначально стоит в самом углу (левом верхнем), и этот угол от тоже закрашивает).
Если что то не так нужно, то напишите, я поправлю.
использовать Робот
алг
нач
нц 10 раз
закрасить
вправо
закрасить
если снизу свободно то вниз
все
кц
кон
<em>// PascalABC.NET 3.2, сборка 1443 от 19.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(15,50,150); a.Println;
Writeln('Трехзначных: ',a.Where(x->x>99).Count)
end.
<u>Пример</u>
132 53 120 100 143 148 125 78 150 141 50 138 72 109 59
Трехзначных: 10