Блок - схема, видимо вроде такого вам надо )
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Вариант III.
В F можно попасть непосредственно из А или из Е.
Путь А-Е имеет длину 5. Осталось найти путь, если он есть, из А в Е с длиной не более 5-1-1=3. Почему столько? одна единица - это путь E-F, а вторая - это чтобы путь был короче A-F=5.
Как попасть в Е? Можно из А (длина 5 и это много) или D (длина 1).
Поищем вариант A-D диной не более 3-1=2. И он есть, и именно 2.
Поэтому кратчайший путь - это A-D-E-F с длиной 2+1+1=4
Вариант IV.
В F ведут пути из B, C, D ,Е. Это много. Посмотрим тогда куда можно попасть из А.
А-С длина 2, A-D длина 1.
D-F имеет длину 4 и путь A-F длины 4+1=5 мы уже нашли. Нет ли короче, хотя бы 4?
Вернемся к F. Чтобы получить путь не больше 4, из F должен быть путь в D не более 3 или в С не более 2. Таких путей нет., следовательно кратчайший путь A-D-F длины 1+4=5