Массивы

[hewlett]

Матрица A[n;m] состоит из нулей и единиц. Какова в ней длина самой длинной цепочки подряд стоящих нулевых элементов по горизонтали, вертикали и диагонали

[Roland_Lviv_ua]

Немного коряво но горизонтальные компоненты вычислить можно, остальные по аналогии=))



m:=1;
while i<=m do
for i:=1 to n do
begin
if A[i,m]=0 then inc(k[i]);
end;
for i:=1 to n do
if k[1]<k[i] then k[1]:=k[i];
inc (m);
end;


к -- ето количество 0

[zmey31313]

m:=1;
while i<=m do
for i:=1 to n do
begin
if A[i,m]=0 then inc(k[i]);
end;
for i:=1 to n do
if k[1]<k[i] then k[1]:=k[i];
inc (m);
end;

По моему, он вообще ни как не правильный.
Вот вроде так :

var
  n, m : integer;
  a : array[n, m];
  kol, oc, i, j, Bufkol : integer;
  vert, diag, gor : integer;  //результаты по горизонтали, вертикали и диагонали
begin
//горизонталь
  for i := 0 to n do
  for j := 0 to m do
    begin
      If oc <> i then kol := 0;
      If a[n, m] = 0 then 
        begin
          kol := kol + 1;
          If Bufkol < kol then 
            BufKol := kol;
        end
       else
        begin
          If Bufkol < kol then 
            BufKol := kol; 
          kol := 0;
        end;
      oc := i;
     gor := BufKol;
    end;

kol := 0;
oc := 0;
BufKol := 0;

//вертикаль
  for i := 0 to m do
  for j := 0 to n do
    begin
      If oc <> i then kol := 0;
      If a[n, m] = 0 then 
        begin
          kol := kol + 1;
          If Bufkol < kol then 
            BufKol := kol;
        end
       else
        begin
          If Bufkol < kol then 
            BufKol := kol; 
          kol := 0;
        end;
      oc := i;
      vert := BufKol;
    end;

kol := 0;
oc := 0;
BufKol := 0;

//Диагональ
  for i := 0 to m do
    begin
      If oc <> i then kol := 0;
      If a[m, m] = 0 then 
        begin
          kol := kol + 1;
          If Bufkol < kol then 
            BufKol := kol;
        end
       else
        begin
          If Bufkol < kol then 
            BufKol := kol; 
          kol := 0;
        end;
      oc := i;
      diag := BufKol;
    end;

end;