<span>1й элемент реализует функцию A=
![\lnot(x\land y)](https://tex.z-dn.net/?f=%5Clnot%28x%5Cland+y%29)
,
2й - B=</span><span><span>
![\lnot z](https://tex.z-dn.net/?f=%5Clnot+z)
, 3й - F=
![\lnot(A \lor B)](https://tex.z-dn.net/?f=%5Clnot%28A+%5Clor+B%29)
Таблица истинности
x
y
z
A
B
F
</span><span>0
0
0
1
1
0
</span><span>0
0
1
1
0
0
</span><span>0
1
0
1
1
0
</span><span>0
1
1
1
0
0
</span><span>1
0
0
1
1
0
</span><span>1
0
1
1
0
0
</span><span>1
1
0
0
1
0
</span><span>1
1
1
0
0
1
</span></span>
Из таблицы видно, что F=
![x \land y \land z](https://tex.z-dn.net/?f=x+%5Cland+y+%5Cland+z)
Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>
Если это MS Word, то либо создать свой пользовательский стиль и применять его, либо потом применить "формат по образцу" к нужным фрагментам.
Программа:
1 П4 ИП4 С/П КИП4 ИП4 5 - x>=0 02 Сx С/П