Вот рисунок. Корабли я обозначил первыми буквами.
ответвление буду называть "карманом" для краткости.
1) Корабль М заходит в карман.
2) Остальные 5 кораблей отходят направо, чтобы О оказался правее кармана.
3) Корабль М выходит из кармана и уходит далеко налево.
4) Корабли О, В, П отходят обратно налево, Е заходит в карман.
5) Корабли О, В, П, Р опять уходят направо.
6) Корабль Е выходит из кармана и уплывает налево.
7) Корабли О, В, П отходят обратно налево, Р заходит в карман.
8) Корабли О, В, П уходят направо.
9) Корабль Р выходит из кармана и уплывает налево.
10) Всё, разъехались!
10 OPTION BASE 1
20 DATA 6,8,2,-1,11,0,7,12,-4,3,7,-4
30 DATA -9,3,-11,0,6,-2,8,13,1,4,0,10
40 DIM A%(2,12)
50 KN=0: KZ=0: KP=0
60 FOR I%=1 TO 2
70 FOR J%=1 TO 12
80 READ A%(I%,J%)
90 IF A%(I%,J%)<0 THEN KN=KN+1 ELSE IF A%(I%,J%)=0 THEN KZ=KZ+1 ELSE KP=KP+1
100 NEXT J%
110 NEXT I%
120 PRINT ">0: ";KN,"=0: ";KZ,">0: ";KP
130 END
Ok
run
>0: 6 =0: 3 >0: 15
Ok