работа с массивом нулей и единиц

[Rusl92]

код для матрицы 3 на 3 написан "быдлокодером"
посмотри в lurkmor'e кто это
честно прямо подходит это понятие!
lebron можешь написать реализацию алгоритма, который ты описал?

[LeBron]

Давайте не будем ерундой заниматься Оставим все как есть, на уровне БФС Если все так уж плохо, то вечером может сяду и напишу исходничек А пока поищу в Вашем решении массив-очередь, без которого я себе решение этой задачи просто не представляю.

Сообщение от Rusl92

код для матрицы 3 на 3 написан "быдлокодером"
посмотри в lurkmor'e кто это
честно прямо подходит это понятие!
lebron можешь написать реализацию алгоритма, который ты описал?

Если честно, то нету желания. Но утешу, сейчас поищу такое в исходниках сделанных мною задач, должно быть. Подождите минут 10-15.
З.Ы. Время вышло. Конкретно такого исходника не нашел, так что решил написать с ноля. Протестил - работает. При желании то же можно прописать и ДФСом, я использовал более удобный для меня БФС.

var input,output:text;a,b,i,j,ans,q,nm:longint;ar,arp:array[0..100,0..100] of longint;stek:array[0..100000,0..2] of longint;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
readln(input,a,b);
for i:=1 to a do begin for j:=1 to b do begin read(input,ar[i,j]);end;readln(input);end;
for i:=1 to a do begin
for j:=1 to b do begin
if (ar[i,j]=1) and (arp[i,j]=0)then begin
nm:=1;stek[1,1]:=i;stek[1,2]:=j;q:=1;arp[i,j]:=1;
while (q<=nm) do begin
if (ar[stek[q,1],stek[q,2]+1]=1) and (arp[stek[q,1],stek[q,2]+1]=0) then
begin inc(nm);stek[nm,1]:=stek[q,1];stek[nm,2]:=stek[q,2]+1;arp[stek[nm,1],stek[nm,2]]:=1;end;
if (ar[stek[q,1],stek[q,2]-1]=1) and (arp[stek[q,1],stek[q,2]-1]=0) then
begin inc(nm);stek[nm,1]:=stek[q,1];stek[nm,2]:=stek[q,2]-1;arp[stek[nm,1],stek[nm,2]]:=1;end;
if (ar[stek[q,1]+1,stek[q,2]]=1) and (arp[stek[q,1]+1,stek[q,2]]=0) then
begin inc(nm);stek[nm,1]:=stek[q,1]+1;stek[nm,2]:=stek[q,2];arp[stek[nm,1],stek[nm,2]]:=1;end;
if (ar[stek[q,1]-1,stek[q,2]]=1) and (arp[stek[q,1]-1,stek[q,2]]=0) then
begin inc(nm);stek[nm,1]:=stek[q,1]-1;stek[nm,2]:=stek[q,2];arp[stek[nm,1],stek[nm,2]]:=1;end;
inc(q);
end;
if nm>ans then ans:=nm;
end;
end;end;
writeln(output,ans);
close(input);close(output);
end.

[Скарам]

LeBron,у меня нет стека и очереди.Алгоритм простой:
1)Нашли единицу,kol-vo=1;
2)И отталкиваясь от неё пошли искать единицу в соседних элементах(поэтому так много if,чтобы не выйти за пределы массива);
3)Если нашли увеличиваем kolvo сохранили индексы предыдущей 1(в pm и pn),чтобы назад не вернуться, и опять ищем.И так пока уткнёмся.
4)Вышли в основной цикл...