Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 70 стр.

Школьный АЯ
алг Строки с нулями (арг цел N, M,
         арг цел таб A[1:N, 1:M], рез
цел K)
    дано | N>0, M>0
нач цел i, j, лит Flag
  K := 0
  нц для i от 1 до N | цикл по всем
строкам
     j:= 1; Flag := "Нет"
     нц пока (j <= M) и (Flag = "Нет")
             | цикл до нулевого элемента
строки
        если A[i, j] = 0
            то Flag:="Да"; K:=K+1
            иначе j:=j+1
        все
     кц
  кц
кон




                           Исполнение алгоритма
                      Обозначение проверяемого условия:
                   (j<=M) и (Flag = "Нет" ) => (1)
               i       Flag    j    (1)    A[i,j]=0       K

               1       "Нет"   1     +         -          0
                        "Да"   2     +         +          1
                                     -
                                   (кц)

               2       "Нет"   1     +         -
                               2     +         -
                               3     +         -
                               4     -
                                   (кц)

               3       "Нет"   1     +         +          2
                        "Да"         -
                                   (кц)
Turbo Pascal
Program ContainZero;
  Uses Crt;
  Var A          : Array[1..10, 1..10] of Integer;