Составьте таблицу истинности для следующего логического выражения: (X&¬Y)v(¬X& Y

Это математика, а не информатика.
Разбиваешь прямую на отрезки по точкам, в которых модули = 0.
1) При x < -1/2 будет |2x+1| = -2x-1, |2x-1| = 1-2x
-2x-1 = 1-2x
-1 = 1 - не верно, решений в этой области нет.
При -1/2 <= x < 1/2 будет |2x+1| = 2x+1, |2x-1| = 1-2x
2x+1 = 1-2x
4x = 0, x = 0 - принадлежит промежутку, поэтому это решение.
При x >= 1/2 будет |2x+1| = 2x+1, |2x-1| = 2x-1
2x+1 = 2x-1
1 = -1 - не верно, решений в этой области нет.
ответ: x = 0
2) 2x+1 под корнем, значит x >= -1/2
При -1/2 <= x < 1 будет |x-1| = 1-x
корень(2x+1) = 2(1-x)
2x+1 = 4(1-x)^2 = 4(x^2 - 2x + 1) = 4x^2 - 8x + 4
4x^2 - 10x + 3 = 0
D/4 = 5^2 - 4*3 = 25 - 12 = 13
x1 = (5 - корень(13))/4 ~ 0,35 - входит в промежуток, это решение.
x2 = (5 + корень(13))/4 ~ 2,15 > 1, не подходит.
При x >= 1 будет |x-1| = x-1
корень(2x+1) = 2(x-1)
2x+1 = 4(x-1)^2 = 4(x^2 - 2x + 1) = 4x^2 - 8x + 4
4x^2 - 10x + 3 = 0
D/4 = 5^2 - 4*3 = 25 - 12 = 13
x1 = (5 - корень(13))/4 ~ 0,35 < 1, не подходит.
x2 = (5 + корень(13))/4 ~ 2,15 - входит в промежуток, это решение.
ответ:
x1 = (5 - корень(13))/4
x2 = (5 + корень(13))/4
3) При x < -1/2 будет |2x+1| = -2x-1, |3x-1| = 1-3x
1 - 3x - 2x - 1 = 8
-5x = 8, x = -8/5 < -1/2 - входит в промежуток, это решение.
При -1/2 <= x < 1/3 будет |2x+1| = 2x+1, |3x-1| = 1-3x
1 - 3x + 2x + 1 = 8
-x = 6, x = -6 - не входит в промежуток
При x >= 1/3 будет |2x+1| = 2x+1, |3x-1| = 3x-1
3x - 1 + 2x + 1 = 8
5x = 8, x = 8/5 > 1/3 - входит в промежуток, это решение.
ответ: x1 = -8/5, x2 = 8/5

1,2 задание

var
a:array [1..9] of real;
i,k:integer;
j:real;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=(random(410)+100)/10;
write(a[i],' ');
end;
writeln;
writeln('Массив после увелечения минимального элемента на 100:');
k:=1;
for i:=2 to 9 do
if a[i]<a[k] then k:=i;
a[k]:=a[k]+100;
for i:=1 to 9 do
write(a[i],' ');
writeln;
writeln('Массив после престановки максиального элемента с первым:');
j:=a[1];
a[1]:=a[k];
a[k]:=j;
for i:=1 to 9 do
write(a[i],' ');
writeln;
end.

3 задание
var
a:array [1..10] of integer;
i,mn,mx:integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
readln(a[i]);
mn:=1; mx:=1;
writeln('Массив');
for i:=1 to 10 do
begin
if a[i]<a[mn] then mn:=i;
if a[i]>a[mx] then mx:=i;
write(a[i],' ');
end;
i:=a[mx];
a[mx]:=a[mn];
a[mn]:=i;
writeln;
writeln('Массив после престановки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.