В массиве найти количество "островов" из единиц

@ValeEva · Регистрация: 26.03.2015

Author24 — интернет-сервис помощи студентам

Помогите перевести с Паскаля на С# или предложите свой вариант решения:
Нужно в квадратном массиве, состоящем из единиц и нулей, найти количество "островов" из единиц, расположенных рядом и окружённых со всех сторон нулями или краями массива. Единицы, входящие в "остров" считаются те, которые граничат друг с другом по горизонтали или вертикали.
Код на Паскале:

Pascal

const
  m = 102;
var
  a:array [1..m, 1..m] of integer;
  i,j,n,res: integer;
  input,output: text;
procedure count(i,j: integer);
  begin
    if a[i,j] <> 1 then
      exit;
    a[i,j] := 0;
    count(i + 1, j);
    count(i - 1, j);
    count(i, j + 1);
    count(i, j - 1);
  end;
begin
  res:= 0;
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  read(input, n);
  {Заполняем массив нулями}
  for i:= 1 to n+2 do
    for j:=1 to n+2 do
      a[i,j]:=0;
  {Считываем матрицу из файла}
  for i:= 2 to n+1 do
    for j:=2 to n+1 do
      read(input,a[i,j]);
  {Обходим матрицу в поиске островов}
  for i := 2 to n+1 do
    for j := 2 to n+1 do
      if a[i,j] = 1 then
        begin
          inc(res);
          count(i,j);
        end;
  write(output,res);
  close(input);
  close(output);
end.

@Storm23 · 26.03.2015, 16:45

ValeEva, Количество прямоугольников

@Storm23 10410 / 5140 / 1825 Регистрация: 11.01.2015 Сообщений: 6,226 Записей в блоге: 34
	26.03.2015, 16:45	2
	ValeEva, Количество прямоугольников 0