Определите главные ключи и типы полей
Школы города (Номер_школы, Город, Адрес, Директор)

Страны мира (Страна, Столица, Часть_света,

Население, Площадь)

Библиотека (Инв_номер, Автор, Название, Год_изд,

Издательство)

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

var
    m : array [1..10] of Integer;
    i, b, s, p : Integer;
begin

 

   Writeln('Введите массив:');

   for i := 1 to 10 do

   begin
      Write(i, ': ');

      Readln(m[i]);

    end;

 

   s := 0;
   b := m[1];
   p := 1;

   for i := 1 to 10 do
   begin
      if b < m[i] then b := m[i];
      if m[i] > 0 then s := s + m[i];
      if m[i] mod 2 = 0 then p := p * m[i];
   end;

   Writeln('Наибольший элемент = ', b);
   Writeln('Сумма неотрицаельных элементов = ', s);
   Writeln('Произведение четных элементов = ', p);

   ReadLn;
end.