какую формулу вводить в запросы?​

а) 1

б) 0

Объяснение:

А = {Курица – это птица} = 1 (истина, курица действительно птица)

В = {Все мальчики занимаются футболом} = 0 (ложь, не все мальчики занимаются футболом)

С = {Все программы - игры} = 0 (ложь, не все программы являются играми)

D = {Клубника всегда растёт на дереве} = 0 (ложь, клубника растёт не на дереве)

a) (A ∨ B) ∨ (C & D) = (1 ∨ 0) ∨ (0 & 0) = 1 ∨ 0 = 1

б) (А & В) ∧ (C ∨ D) = (1 & 0) ∧ (0 ∨ 0) = 0 ∧ 0 = 0

∨ (ИЛИ) - ложно, когда оба исходных высказывания ложны

& (∧, И) - истинно, когда оба исходных высказывания истинны

Const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln;
  Writeln('Частное: ',sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5  24   4   3   1  12  13  10   1   6  13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Writeln('Вводите через пробел элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln('Частное: ',sp/abs(sn))
end.