Объяснение:
1. ( 1 или 0) это логическое "или" поэтому будет равно 1, тоже самое со второй скобкой. В третьей скобке импликация. Она равна нулю только при первом аргументе 1, а при втором 0. Теперь у нас конъюнкция между 1 и 1. Конъюнкция равна единице, когда оба аргумента единицы. Теперь конъюнкция между 1 и 0. Из сказанного выше, это будет равняться 0. ответ 0.
2. Первая скобка: Не а или не а будет равно 1, по закону исключённого третьего. Вторая скобка не в или не в будет равна не в (—в). Между 1 и не в следует поставить знак дизъюнкции, что б выражения всегда принимало значение истина(1)
program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
