Подсчёт нулей в каждой строке матрицы при условии, что в строке есть ненулевые значения

@Алексей9912 · Регистрация: 18.11.2017

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

Pascal

var
  colvo, i, j, k:integer;
  n, m, b:byte;
  a:array[1..10,1..10] of integer;
  c:array[1..100] of integer;
begin
  readln(colvo);
  for i:=1 to colvo do
  begin
    read(n);
    read(m);
    for j:=1 to n do
    begin
      for k:=1 to m do
      read(a[j,k]);
    end;   
  writeln;      
  end;
   for j:=1 to n do
     for k:=1 to m do
     begin
       if a[j,k]=0 then 
         inc(c[i]);    
     end;
     if a[j,m]<>0 then
       writeln(c[i]);
     for i:=1 to colvo do
     writeln(c[i]);
end.

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

@Hitoku · 16.02.2018, 17:16

0 0 0 0
1 0 1 0
0 0 0 1
0 0 1 0
Какой ответ должен быть?

@Алексей9912 · 16.02.2018, 17:21 **[ТС]**

должно быть 2.

@Hitoku · 16.02.2018, 17:39

Как я понял:
В первой строке нет никаких чисел, кроме нулей, поэтому эту строку не считаем.
Во второй 2 нуля.
В третьей 3 нуля, но т.к. строка заканчивается не нулём, то подсчёт прекращаем.

Итого: 5

@Алексей9912 · 16.02.2018, 17:45 **[ТС]**

а. ну в общем. задача стремная, я сформулировал условие как мог.
и вот вам еще пример
3 1 0
0 2 3 - 2.
0 0 0

0 0 0
1 1 1 - 0.
0 0 0

@Puporev · 16.02.2018, 17:53

Сообщение от Hitoku

0 0 0 0
1 0 1 0
0 0 0 1
0 0 1 0
Какой ответ должен быть?

Строка 1=0
Строка 2=2
Строка 3=3
Строка 4=3

@Алексей9912 · 16.02.2018, 18:06 **[ТС]**

вот задача. может вы поймете. я ничего не понял.

@Hitoku 1754 / 1346 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	16.02.2018, 17:16	2
	0 0 0 0 1 0 1 0 0 0 0 1 0 0 1 0 Какой ответ должен быть? 0

@Алексей9912 0 / 0 / 3 Регистрация: 18.11.2017 Сообщений: 99
	16.02.2018, 17:21 [ТС]	3
	должно быть 2. 0

@Hitoku 1754 / 1346 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	16.02.2018, 17:39	4
	Как я понял: В первой строке нет никаких чисел, кроме нулей, поэтому эту строку не считаем. Во второй 2 нуля. В третьей 3 нуля, но т.к. строка заканчивается не нулём, то подсчёт прекращаем. Итого: 5 0

@Алексей9912 0 / 0 / 3 Регистрация: 18.11.2017 Сообщений: 99
	16.02.2018, 17:45 [ТС]	5
	а. ну в общем. задача стремная, я сформулировал условие как мог. и вот вам еще пример 3 1 0 0 2 3 - 2. 0 0 0 0 0 0 1 1 1 - 0. 0 0 0 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	16.02.2018, 17:53	6
	Сообщение от Hitoku 0 0 0 0 1 0 1 0 0 0 0 1 0 0 1 0 Какой ответ должен быть? Строка 1=0 Строка 2=2 Строка 3=3 Строка 4=3 0

@Алексей9912 0 / 0 / 3 Регистрация: 18.11.2017 Сообщений: 99
	16.02.2018, 18:06 [ТС]	7
	вот задача. может вы поймете. я ничего не понял. Миниатюры 0

Опции темы