Нарисовать контактную схему для логической формулы проводимости: 1. ((x∨¬y)∧z)∨(x∨¬z∧y) 2. y∨(x∧(x∨(y∧ 3. (z∨¬x∧y)∧(y∨¬z)

Скорее всего это будет так, если что- спрашивай

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

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (s,p):=(0,BigInteger(1));
  for var i:=0 to m-1 do
    if i.IsEven then
      p*=a.Row(i).Where(t->t<0).Aggregate(BigInteger(1),(x,y)->x*y)
    else
      s+=a.Row(i).Where(t->t>0).Sum;
  Writeln('S = ',s,', П = ',p)
end.

1.
Program TuKpa6;const n=5;const m=5;varA:array[1..n,1..m] of integer;i,j:integer;BEGINfor i:=1 to n do  begin    for j:=1 to m do      begin        a[i,j]:=10*i+j;      end;  end;writeln('HaIIgeHo:');for i:=1 to n do  begin    for j:=1 to m do      begin        if (odd(a[i,j])) and (a[i,j]<40) and (a[i,j] mod 5 = 2) then          begin            writeln('a[',i,j,']=',a[i,j]);          end;      end;  end;writeln('koHeII,');END.

2.
Program TuKpa6;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;for i:=1 to n do {забиваем массва}  begin  a[i]:=i;  end;for i:=1 to n do {суммируем чётные элементы}  begin    if not (odd(a[i])) then      begin        sum:=sum+a[i];      end;  end; writeln('HaIIgeHo:');for i:=1 to n do  begin    if i=4 then      begin        a[i]:=sum;        writeln('a[',i,']=',a[i]);      end;  end;writeln('koHeII,');END.