Острова Опции

[@^WARlock^@]

Народ помогите написать программу.


Острова (определить кол-во островов на озере).

Прога частично напоминает морской бой. Задается поле, на нем можно расставлять острова (один квадрат –ик один остров). После расставления островов, прога должна сосчитать их кол-во.

[@^WARlock^@]

Эот код действителен если остров состоит из одной клетки.

Код

s:=0;
for j:=1 to 10 do for i:=1 to 10 do s:=s+ac[i,j];

А если мой остров состоит не из одной клетки, а более. Подскажите код, по которому можно подсчитать их кол-во.

Сообщение отредактировано: @^WARlock^@ - 27.03.2007 11:17

[Lapp]

если мой остров состоит не из одной клетки, а более. ... подсчитать их кол-во.

@^WARlock^@, с этого я и начал когда-то . Смотри мой первый пост..