Найти количество положительных элементов двумерного массива (паскаль)

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Кол-во положительных: ',a.ElementsByRow.Where(x->x>1).Count)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
 -64  16  -1  59 -63 -37 -54  28 -40  39  17 -84
  89   8  38  56 -51  20  49  28 -90 -85   1  81
  13  52 -10  15  28 -95  76 -77 -54 -27  33  -9
  22  43 -40  14  58  19 -75  26  92  94 -59  87
 -95  -8  65 -24 -50  62  26 -79 -85  18 -54 -16

Кол-во положительных: 32

Var n,m,i,j,k:integer; a:array[1..100,1..100] of integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
readln(a[I][j]);
for i:=1 to n do
for j:=1 to m do
if a[I][j]>0 then k:=k+1;
writeln(k);
end.

1. 1v1=1 ,  1∧0=0 ,  ¬0=1

2. ¬А=1, ВvС=0, Д∧С=1

Объяснение:

1

AvВ, если А = 1, В = 1           1v1=1

A ∧ B, если A = 1, B = 0        1∧0=0

¬ А, если А= 0                      ¬0=1

2.     1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна

2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0

3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1

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

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

Отняв от количества страниц, в которых есть хотя бы одно из слов "Мороз" или "Солнце" количество страниц, в которых есть оба этих слова, получим сумму страниц, в которых есть только слово "Мороз" или только слово "Солнце"

2870 - 1100 = 1770

Известно, что запросов, в котором есть только слово Мороз 1654. Отнимем это число от суммы страниц, в которых есть только слово "Мороз" или только слово "Солнце".

1770 - 1654 = 116

ответ: 116 страниц.