очень Сколько различных решении имеет логическое уравнение?
1) (A v B v C) & ( B & C & D) = 1;
2) (A v B v C) v ( B & C & D) = 0;
3) (A -> C) v (B & A) v (D -> B & C) = 0; 4) (A & B & C) -> (C & D) = 1.​

var a: array [1..12] of real;

var ai, sum: real;

var i, count: integer;

begin

    for i: = 1 to 12 do begin

        read(ai);

        a[i]: = ai;

    end;

    sum: = 0;

    count: = 0;

    for i: = to 12 do begin

        if a[i] > 0 then begin

            sum: = sum + a[i];

            count: = count + 1

        end

    end;

    writeln(sum / count)

end.

ответ:

всё напишу в объяснении.

объяснение:

1) program ex1;

var

  n, a, i, sum : integer;

begin

  sum : = 0; // обнуляем счетчик суммирования

  read(n);   // вводим кол-во чисел

  for i : = 0 to n do

    begin

    read(a); // считываем эти числа

    if (a mod 5 = 0) then sum : = sum + a; // если число кратно 5, то добавляем его к сумме

    end;

  writeln(sum); // выводим сумму.

end.

2) program ex2;

var

  n, a, i, min: integer;

begin

  min : = 3;

  read(n);   // вводим кол-во чисел

  for i : = 0 to n do

    begin

    read(a); // считываем эти числа

    if ((a mod 10 = 4) and (a < min)) then min : = a; // ищем минимум

    end;

  writeln(min); // выводим минимум

end.