Найдём объём информации на одной странице:
25*40=1000 символов. 1000*7=7000.
Кладём самый маленький корж на красный поднос, 2-ой по размеру - на жёлтый, перекладываем маленький корж на жёлтый - поверх среднего, кладём большой на красный, перекладываем с жёлтого на красный - поверх большого
Переходите от одного квадрата к другому, выбирая при этом ту цифру, которая меньше – таким образом вы ищите кратчайший путь.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.