var
A: array [1..5] of Integer;
i, c, nc: Integer;
begin
c := 0;
nc := 0;
Randomize;
for i := 1 to 5 do begin
A [i] := Random (10);
WriteLn (i, ': ', A [i]);
if A [i] mod 2 = 0 then
c := c + 1
else
nc := nc + 1;
end;
if c > nc then
WriteLn ('четных элементов больше')
else if nc > c then
WriteLn ('нечетных элементов больше')
else if nc = c then
WriteLn ('четных и нечетных элементов равное количество');
ReadLn;
end.
// Условие: "nc = c" написано "для надежности", такого быть не должно, так как количество элементов нечетно
Всего пять переменных, каждая из которых может принимать значения 0 или 1. Следовательно кол-во возможных комбинаций или строчек равно 2^5=32
10 строчек имеют одинаковое значение (0;0 или 1;1), которые делают значение импликации равным 1 (См. Табличку на фото).
Всего строчек 32. Строчек, где значение импликации равно 1 - 10. Следовательно у нас осталось 32-10=22 строчки. В них возможно получение значение импликации равное нулю, поэтому максимальное кол-во нулей в столбце значений таблицы истинности выражения A → B равно 22
P.S. Я знаю, что ты это посмотришь, Сережа, поэтому скажи что по матеше задали
