ACDF= 8 ( можно определить по методу Дейтриксы)
Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.
Пока сверху свободно вверх
закрасить
пока снизу не свободно то закрасить влево
если сверху свободно то вверх
вверх
влево
влево
пока снизу не свободно то закрасить вправо
вправо
пока снизу не свободно то закрасить вправо