Вася решил немного попутешествовать и подсчитал, сколько стоит переезд между каждой парой близлежащих городов. После этого он наметил маршрут – последовательность городов, которые он хотел посетить. Напишите программу, которая считает общие транспортные расходы на путешествие. Некоторые города не связаны дорогами, так что проехать напрямую из одного города в другой не всегда возможно.

Входные данные
В первой строке вводится количество городов N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – стоимость переезда между каждой парой городов. Ноль означает, что дороги между этими городами нет. В последней строке записаны номера городов, которые хотел посетить Вася. Их может быть от 1 до 1000, они могут повторяться. Нумерация городов начинается с единицы.

Выходные данные
Программа должна вывести одно число – общую стоимость путешествия по такому маршруту или число 0, если на каком-то этапе прямой переезд из одного города в другой невозможен.

входные данные
5
0 2 3 4 3
2 0 5 0 7
3 6 0 8 0
0 0 0 0 0
3 7 0 9 0
1 2 5 1
выходные данные
12

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

creativeIgorek

24.03.2023 06:49

СОСТАВИТЬ ПРОГРАММУ ОБМЕНА МЕСТАМИ ДВУХ ЧИСЕЛ c=4;d=23....

anna18341

16.01.2020 17:07

Укажите записи алгоритма Посадка дерева1.взять лопату и саженец2.выкопать яму3.посадить сажанец в яму4.взять лейку с водой и полить сажанец5.поставить лопату и лейку...

олжик13

14.12.2022 18:35

Запишите без пробелов строку кода, пропущенную в описанной функции возведения числа k в степень n? function st(k: real; n: byte): real; var r: real; begin r:=1; for...

ВопросикиОтШколоты

29.07.2022 15:41

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

valdi5p0ch22

05.01.2022 13:23

Статья набранная на компьютере содержит 64 страницы, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8 , в которой...

ИлонаУстюгова12

31.10.2021 11:31

Может ли на винчестере быть больше системных загрузчиков, чем на дискете? почему?...

ArtemS99

17.01.2021 04:58

вам заранее, ребята вам заранее, ребята !~♡ >...

liongkimololo

27.11.2021 02:22

По заданию IP-адрес узла и маски определите адрес сети. 1) IP:224.12.78.162 ; Маска: 255.255.224.0 2) IP:224.8.230.162; Маска:255.255.224.0...

простониккакойтотам

31.05.2023 02:19

После очередного этапа чемпионата мира по кольцевым автогонкам на автомобилях с открытыми колесами Формула-А гонщики собрались вместе в кафе, чтобы обсудить полученные...

mooziviycom

22.01.2020 08:54

ИНФОРМАТИКА! ЗАРАНЕЕ Контрольная работа по теме Начала программирования для 8-х классовВо Чувствителен ли Python к регистру (большая или маленькая буквы):a) Да b)НетВо...

Ответ:

kazorinJeka

29.11.2022 07:50

ответ: слово «SPAM» появилось в 1936 г. Оно расшифровывалось как SPiced hAM (острая ветчина) и было товарным знаком для мясных консервов компании Hormel Foods — острого колбасного фарша из свинины. Всемирную известность в применении к назойливой рекламе термин SPAM получил благодаря знаменитому скетчу с одноимённым названием из известного шоу «Летающий цирк Монти Пайтона» (1969) комик-группы Монти Пайтон, в котором слово «спам» в общей сложности упоминается более ста раз

Объяснение:ерез некоторое время слово «СПАМ» стало нарицательным, им стали называть все, что навязывалось вопреки желанию, в частности различные и прочую макулатуру рекламного характера, которой забивали почтовые ящики. А уже потом этим термином стали характеризовать ненужную рекламную корреспонденцию, рассылаемую по электронной почте.

0,0(0 оценок)

Ответ:

Julianne11

09.11.2021 21:46

//"Школьный" вариант
//Pascal ABC.NET 3.1 сборка 1256

Const
n=10;

Var
ar:array[1..n] of integer;
i,max,min:integer;
b:boolean;
begin
randomize;
b:=false;
max:=integer.MinValue;
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-100,100);
if (ar[i]>max) and not(odd(ar[i])) and (ar[i]>0) then
begin
max:=ar[i];
b:=true;
end;
if (ar[i]<min) and not(odd(ar[i])) and (ar[i]>0) then
begin
min:=ar[i];
b:=true;
end;
write(ar[i]:4);
end;
writeln;
if b=false then writeln('Нет удовлетворяющих условиям чисел') else
begin
writeln('Max=',max);
writeln('Min=',min);
end;
end.

Пример работы программы:
Array:
98 60 -41 -88 63 -81 -77 -96 -18 51
Max=98
Min=60

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку