Народ, выручайте. с информатикой туго. написать программу вычисляющую функцию s, значение которой равно единице, если в каждой строке матрицы есть нулевой элемент, и нулю в противном случае. значение функции вычисляется для матриц а(3,4), в(3,3). элементы матриц ввести с подпрограммы процедуры

// pascalabc.net 3.0, сборка 1128 procedure matinput(m: array[,] of integer); begin   var nr: =length(m,0);   var nc: =length(m,1);   writelnformat('введите построчно массив размером {0}x{1}',nr,nc);   for var i: =0 to nr-1 do       for var j: =0 to nc-1 do           read(m[i,j]); end; function s(m: array[,] of integer): integer; begin   result: =0;   var zero: integer;   for var i: =0 to length(m,0)-1 do begin       zero: =1;         for var j: =0 to length(m,1)-1 do           if m[i,j]=0 then begin zero: =0; break end;       result+=zero;       if result=1 then begin result: =0; exit end       end;   result: =1 end; begin   var a: =new integer[3,4]; matinput(a);   var b: =new integer[3,3]; matinput(b);   writeln(s(a));   writeln(s(b)); end. тестовое решение: введите построчно массив размером 3x4 1 2 3 4 5 6 7 8 9 0 1 2 введите построчно массив размером 3x3 1 2 0 2 0 1 0 1 0 0 1

Таблица истинности - в прилагаемом файле. но можно вспомнить один из законов логики (закон поглощения x  ∨ x∧y = x), то получится  (a^b)^ĉvb  ⇒  b^(a^ĉ) v b  ⇒ b. и таблица уже не нужна будет.