<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
А) а∧b=1∧0=0
б) а∧b∨c=1∧0∨1=0∨1=1
в) (а∨b)∧(c∨b)=(1∨0)∧(1∨0)=1∧1=1
г) а∨b=1∨0=1
д) а∨b∧с=1∨0∧1=1∨0=1
е) не(а∨b)∧(c∨b)=0∧1=0
ж) неа∨b=0∨0=0
и)неа∨b∧с=0∨0∧1=0∨0=0
к)не(а∧b∧c) =не(1∧0∧1)=не 0=1
Если имеются в виду арабские цифры, использующиеся для записи в десятичной системе счисления, то в множество войдут десять цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
Переменная "c" после выполнения этого кода будет: 32
2)a,=Z(3)
3)<span>Z(a)=(b)
5)вывод a,'+',b,'='
6)вывод 'Z(',a,')=F(',b,')'
7)вывод 'a=',a,';b=',b,';'</span>