Тема: Перевід коду з мови Pascal у C++
[code=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.
[/code]
