Паскаль. Величина пятен

[Poma][a]

И что где матерится?тыц

Переделывать на чтение файла не хочется, но если автор сделает, то погоняю тесты.

Assign(input, 'input.txt'); Reset(input); 
Assign(output, 'output.txt'); Rewrite(output);

[phomm]

Я про то, что я уматерился ) фигурально, конечно.
Насчёт перенаправления потока не подумал, сел гонять.

5 5 
1 0 1 0 0 
0 0 1 1 1 
1 0 0 0 1 
1 0 0 0 1 
1 0 1 0 1

1 2
3 1

пичал

У Аватара всё гуд ) осталась визуализация

[Poma][a]

Ага.. Мой косяк.. поправил..

uses Math;
const
        SIZE = 100;
var
        mtx : array [0..SIZE, 0..SIZE] of Integer;
function Value(x, y : Integer) : Integer;
var
	cnt : Integer;

begin
	cnt := 0;

	if mtx[x-1, y] = 1 then begin
		mtx[x-1, y] := 0;
		Inc(cnt, Value(x-1, y)+1)
	end;

	if mtx[x+1, y] = 1 then begin
		mtx[x+1, y] := 0;
		Inc(cnt, Value(x+1, y)+1)
	end;

	if mtx[x, y-1] = 1 then begin
		mtx[x, y-1] := 0;
		Inc(cnt, Value(x, y-1)+1)
	end;

	if mtx[x, y+1] = 1 then begin
		mtx[x, y+1] := 0;
		Inc(cnt, Value(x, y+1)+1)
	end;

	Value := cnt
end;

var
	a : array [0..SIZE*SIZE] of Integer;
	n, m, i, j : Integer;

begin
        ReadLn(n, m);


        for i := 1 to SIZE do
		a[i] := 0;

	for i := 1 to n do
		for j := 1 to m do
			Read(mtx[i,j]);

	for i := 0 to n+1 do begin
		mtx[i, 0] := -1; mtx[0, i] := -1;
		mtx[i, n+1] := -1; mtx[n+1, i] := -1
	end;

	for i := 1 to n do
		for j := 1 to m do
			if mtx[i, j] = 1 then begin
                                mtx[i, j] := 0;
				Inc(a[Value(i, j)+1]);
                        end;

	for i := 1 to n*m do
		if a[i] <> 0 then
			WriteLn(i, ' ', a[i])
end.

[Аватар]

осталась визуализация

Поигрался немножко и добавил не большую, но зато графическую

var ...
    BitMap: TBitMap;
    cr,cg,cb: Byte;
...
  {Визуализация}
  BitMap:=TBitMap.Create;
  BitMap.Width:=n*8;
  BitMap.Height:=m*8;
  for i:=0 to n-1 do
    for j:=0 to m-1 do
      if a[i,j].X=1 then begin
        v:=(b[a[i,j].Y-1]-1) mod 9;
        cr:=0; cg:=0; cb:=0;
        case v of
        0..2: cg:=255-v*85;
        3..5: cb:=255-(v-3)*85;
        6..8: cr:=255-(v-6)*85;
        end;
        BitMap.Canvas.Brush.Color:=RGB(cr,cg,cb);
        BitMap.Canvas.FillRect(Rect(i*8,j*8,i*8+8,j*8+8));
      end;
  Image1.AutoSize:=True;
  Image1.Picture.Assign(BitMap);
  BitMap.Free;
  {Сортировка}
...