var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.
F=A*¬B - А и В зависят от 6-ти переменных, в таблице истинности будет:
2^6 =64 строки
В условии сказано, что А=1 и В=1 в пяти соответствующих строках (¬В=0).
Значение F=A*¬B=1*0=0, то есть достоверно известно,
что F=0 ровно в пяти строках .
В остальных (64-5=59) 59-ти возможно, что F=1.
ответ 59