В общую длину пути будет входить длина пути AC = 10
Длина пути напрямую из C в F (CF) = 8.
Нам нужно проверить, если ли смысл ехать в другой нас. пункт из C, чтоб сократить общий путь.
Варианты, где расстояние из C в другой нас. пункт больше или равно CF отбрасываем. У нас остаются:
Теперь проверим, из какого из этих пунктов расстояние в F не превышает расстояние CF - 8.
Найдем общий размер пути, который нужно преодолеть с самого начала и найдем меньший
- ACBF = 10 + 6 + 1 = 17
- ACDF = 10 + 2 + 4 = 16
- ACEF = 10 + 5 + 0 = 15
Ответ:
Длина кратчайшего пути между пунктами А и F, проходящая через пункт С = 15 (ACEF).
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...
Program z1;
var a:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do
begin
readln a[i];
if a[i] mod 2 =0 then k:=k+1;
end;
wreteln('четных',k);
end.