Постройке таблицу истиности для следующих логических выражений а) -|а^вvс б) -|аv (b^c)

В обоих случаях таблица истинности будет содержать 8 строк, так как переменных - 3

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=MatrixRandom(10,10,-10,10);
  var sp:=0; var sn:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 9 do begin
      Write(a[i,j]:4);
      if a[i,j]>0 then Inc(sp)
      else
        if a[i,j]<0 then Inc(sn)
      end;
    Writeln
    end;
  Writeln('Положительных ',sp,', отрицательных ',sn)
end.

Пример
  -2   4   5  10   3   7  -8  -1  -5  -9
  -2   6  -3   8  10   9  -8   3   9   9
   2  10   3   5  10   1  -9   4  -7   3
   9   1  -3  -5   7   5   2   0  -7   3
   2   1  10  -8  -8   6  -8  -3  -5   0
  -2 -10  -7   9  -9  -1  -9  10 -10  -8
   6  -1  -4   3  -7   7  -1  -8 -10  -5
  -3   2   0  -5  -4 -10 -10   0   3  -7
  -1   5  -2   4  -6   9  -3  -1  -7  -2
   3   2   0 -10   8  -7  -5  -3  10  -5
Положительных 44, отрицательных 51

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),-10,10);
  a.Println;
  Writeln('Сумма положительных равна ',a.Where(x->x>0).Sum)
end.

Пример
Кол-во элементов:  8
-0.904254126783579 -6.85698384272725 -8.54558298296555 0.520270080547906 -6.12226872524352 -5.76991352987006 -8.2311904142756 -5.47438762871287
Сумма положительных равна 0.520270080547906

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3);
  a.Println;
  Writeln('Среднее значение равно ',a.Average)
end.

Пример
Кол-во элементов:  6
2.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884
Среднее значение равно 2.60310938268424