Выражение можно упростить:
( (X∨Y ) ⇒ Y ) & (1 ∨ Y) ⇒¬Y
=
(<span>¬X∨Y )</span><span> & </span><span>(1 ∨ Y) ⇒¬Y
=</span>
(¬X∨Y ) <span>⇒¬Y =
X </span><span>& </span><span>¬Y </span><span>v ¬Y =
</span><span>¬Y
Значит для любого X если Y = 0, то значение выражения = 1 и наоборот, если Y = 1, </span><span><span>то значение выражения = 0</span></span>
Код в прикрепленном файле, пример программы тоже (+2 скриншота листинга)
Массив заполняется рэндомными числами размерность массива задается в начале метода Main
В примере она
int n = 10;
int m = 10; их можно заменять на свои
program vld;
var
x, y : integer;
begin
read(x);
if x <= -15 then
y := 5 * sqr(x)
else
if (x<= 25) and (- 15 < x) then
begin
y := -x;
writeln(y);
end
else
y := - sqr(x)
end.
Var a:integer;
begin
readln(a);
case a of
1:writeln('январь,31 день');
2:writeln('февраль,28(29) дней');
3:writeln('март,31 день');
4:writeln('апрель,30 дней');
5:writeln('май,31 день');
6:writeln('июнь,30 дней');
7:writeln('июль,31 день');
8:writeln('август,31 день');
9:writeln('сентябрь,30 дней');
10:writeln('октябрь,31 день');
11:writeln('ноябрь,30 дней');
12:writeln('декабрь,31 день');
end;
end.<span>
</span>