Двумерный массив: посчитать количество строк и столбцов, в которых есть нулевые элементы

@kirillivanov · Регистрация: 30.03.2013

Студворк — интернет-сервис помощи студентам

Имеется двумерный массив, нужно посчитать количество строк и столбцов, в которых есть нулевые элементы, помогите пожалуйста)

Добавлено через 1 час 28 минут

Delphi

for i :=1 to n do
      begin
     k:=0;
    for j := 1 to n do
      begin
        if A[i,j]=0 then k:=k+1;
 
          if k>=1 then
          kol_str:=kol_str+1;
      end;
 
      end;

считает не правильно(

@StrelokCj · 27.04.2013, 20:42

Delphi

k:=0;
s:=0;
for i:=1 to n do
    for j:=1 to m do
        if (d[i,j]=0) then begin
           s:=s+1;
           break;
        end;
for i:=1 to n do
    for j:=1 to m do
        if (d[j,i]=0) then begin
           k:=k+1;
           break;
        end;
writeln('Strok=',s,' Stolbcov=',k);

	27.04.2013, 20:42

Опции темы