Написать программу вычисляющую сумму 12 элементов одномерного массива, заданного случайным образом.

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

i,s: integer;

begin

for i: =1 to 12 do

begin

a[i]: =random(100);

s: =s+a[i];

write (a[i],' ')

end;

writeln;

write (s)

end.

объяснение:

в таблице указаны расстояния между соседними станциями. значит станции для которых значения являются соседними. нужно для каждой таблицы найти все возможные маршруты и посчитать их длину.

поиск маршрутов начинать надо со станции а.

например из первой таблицы следует, что станция а соседствует со станциями в и е. станция в со станцией d, а та со станцией f. станция е тоже соседствует со станцией f, но из e в f можно добраться ещё и через c.

итого по первой таблице получается 3 маршрута.

a→b→d→f

a→e→f

a→e→c→f

расстояния берёшь из таблицы и складываешь. получается, что длины всех трёх маршрутов равны 10. то есть не подходит.

подобным образом проверяешь остальные таблицы.