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>
Тут нечего искать. Из нулей при дизъюнкции ничего не может получиться, кроме нуля. Это как если бы в обычной алгебре складывать нули.
Ответ:
((1v0)v1)v1 = 1
(0&1)&1 = 0
1&(1&1)&1 = 1
((1v0)&(1&1))&(0v1) = 1
((1&0)v(1&0))v1) = 1
((1&1)V0)&(0V1) = 1
((0&0)V0)&(1V1) = 1
Объяснение:
V - Дизъюнкция - or - или
& - Конъюнкция - and - и
Собственно, объяснение уже почти написано в самом Вашем вопросе.
Когда мы в любой программе, не обязательно на языке Паскаль, записываем некое изображение числа, это число должно быть преобразовано в форму, понятную компьютеру, который будет эту программу исполнять. Попросту - в двоичную систему счисления.
Такое изображение числа принято называть литералом (от английского слова literal - буквальный, константа). Договорились, что если литерал изображает число, то это число считается представленным в десятичной системе счисления.
Но иногда у нас может возникнуть необходимость указать число в системе счисления, отличной от десятичной - в двоичной, восьмеричной или шестнадцатиричной. Каждый язык программирования решает это по-своему. Паскаль разрешает записывать шестнадцатиричные литералы. И для отличия требует, чтобы перед таким литералом добавляли знак доллара.
Т.е. если мы написали a:=347+263; то a получит значение 610, а если написать a:=347+$263, то 958. Потому что 263₁₆ = 611₁₀
Вот и все.
