Мальчик любит морской бой. он выставляет корабли на игровом поле так, чтобы они не соприкасались, поле имеет размеры 5×5 , клетка занятая кораблем обозначается 1 , а свободная -0, после ввода данных по всем клетках игрового поля определить, сколько на нем кораблей. !

Правильность расстановки кораблей не проверяется!
В программе сразу дан пример!
const n=5;
var a:array[1..n,1..n] of byte=
((1,0,1,0,1),
 (1,0,0,0,1),
 (0,0,1,0,1),
 (1,0,0,0,0),
 (0,0,1,1,0)); 
k, i, j: integer;
begin
if a[1,1]=1 then k:=1 else k:=0;
for j:=2 to n do
 if (a[1,j-1]=0)and(a[1,j]=1) then k:=k+1;
for i:=2 to n do
 begin
 if (a[i-1,1]=0)and(a[i,1]=1) then k:=k+1;
 for j:=2 to n do
  if (a[i-1,j]=0)and(a[i,j-1]=0)and(a[i,j]=1) then k:=k+1;
 end;
writeln('k = ',k);
end.

Результат:
k = 6