Всего путей через город Ж, исключая город З совсем, 7.
Так имеется ввиду? Рад помочь, 20 минут рисовал.
10 = 3*3+3/3 (= 9+1)
8 = 3*3-3/3 (=9-1)
то, что находится в скобках писать не нужно
Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.