Напишите программу подсчета произведения всех отрицательных элементов заданного целочисленного массива размером 30 элементов, в предположении, что в массиве есть хотя бы 1 отрицательный элемент (паскаль)

Var mas30: array [1..30] of integer; var i, proz: integer; begin proz: =1; for i: =1 to 30 do    begin  mas30[i]: =-5+random (11); //заполнение массива  write (mas30[i], '   '); //вывод значений массива  end;   writeln; for i: =1 to 30 do if mas30[i]< 0 then proz: =proz*mas30[i]; //подсчет произведения отриц элементов writeln (proz); end.

Строишь по таблице граф и перебираешь все пути.
Чтобы не потеряться, можно делать по алфавиту.

A→B→C→E = 2 + 1 + 2 = 5 ← кратчайший
A→C→E = 5 + 2 = 7
A→D→C→E = 1 + 3 + 2 = 6

Если разделить 1 стержень на 5 частей то кол-во распилов будет равно 4,
всего добавилось 33 стержня, 33 - 9 = 24
Значит: 24 / 4 = 6
Ответ: 6

Чертишь крест 10 на 10 ставишь через клеточку цифру в правую сторону 1 2 3 4 и так до десяти а в левую -1 -2 -3 -4 -5 -6 и так до 10 .потом верх пишешь 1 2 3 4 5 и так до 10 а в низ -1 -2 -3 -4 -5 и так до десяти и все делаешь потом координаты например 2, -3 значит в правую 2 клеточки и если - то 3 клетки вниз и соединяешь эти точки