по информатике. Заранее

1) F=Av(¬A&B)
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB

2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B

3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B

4) F =(1v(AvB))v((AC)&1) 
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1

begin
  var n:=readInteger('Число элементов массива-');
  var a:=ArrRandom(n,-50,50); a.Println;
  for var i:=1 to n-2 do a[i]:=2*(i+1);
  a.Println
end.

Пример
Число элементов массива- 10
-40 4 -49 0 -47 41 49 33 -31 -1
-40 4 6 8 10 12 14 16 18 -1

begin
  var n:=readInteger('Число элементов массива-');
  var a:=ArrRandom(n,-50,50); a.Println;
  var i1:=a.IndexMax;
  var i2:=a.IndexMin;
  Writeln(a[min(i1,i2)+1:max(i1,i2)].Where(x->x<0).Sum)
end.

Пример
Число элементов массива- 18
-45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47
-194

begin
  var a:=ReadlnString('Введите строку;').ToCharArray;
  // было сделано так только ради получения массива символов,
  // который на самом деле только мешает
  Writeln(a);
  if Pos('...',a.JoinIntoString)>0 then
    Writeln('Троеточие в массиве есть')
  else Writeln('Троеточия в массиве нет')
end.

Пример
Введите строку; 6ye$% DFDRT..drrtert...DFDGD
[6,y,e,$,%, ,D,F,D,R,T,.,.,d,r,r,t,e,r,t,.,.,.,D,F,D,G,D]
Троеточие в массиве есть