Запишите логическое выражение, принимающее значение true , когда точка с координатами (x, y) принадлежат закрашенной области. пояснение : способа, что бы перенести вам чертеж , у меняя нету, вот достойное объяснение к чертежу: 1 линия, проведенная через 4 ( на оси x) и -4 ( на оси y) ; 2 линия, проведенная через 4 (на оси y) и -4 ( на оси x) вот так, 1 клетка = 1 единицы измерения. заранее большое !

Линии имеют уравнения y1=x+4 и y2=x-4 точка, принадлежащая области, заключенной между указанными приямыми (включая их границы) должна удовлетворять условию (y≤x+4) & (y≥x-4)

Program a22; const       max = 42; var       vt: array[1..max]of byte;       i,n: byte;       x: integer; begin   n : = max;   writeln('массив из n элементов будет задан случайными числами на интервале [0,3].');   readln(n);     write('введите число которое будет добавлено к каждому элементу.');   readln(x);     writeln('начальный массив' );   randomize;   for i: =1 to n do begin       vt[i]: =random(1,3);       write(vt[i], ' ');   end;   writeln(' ');     writeln('массив c результатом' );   for i: =1 to n do begin       write(vt[i]+x, ' ');   end;   writeln(' ');   end.

Var    a: array[1..60] of integer;   k,i,min,ind, max,sum: integer; begin   sum: =0;   readln(k);   randomize;   writeln('исходный массив: ');   for i: =1 to 60 do   begin       a[i]: =random(15)-5;     writeln('a[',i,']=',a[i]);     end;   min: =32600;   max: =-32600;   for i: =1 to 60 do //ищем минимальный элемент   begin     if a[i]< min then     min: =a[i];     ind: =i;   end;   for i: =1 to 60 do //ищем максимальный элемент      if a[i]> max then         max: =a[i];   for i: =60 downto 60-k do //сумма последних k  элементов    sum: =sum+a[i];   a[ind]: =sum; if a[1]> =0 then      for i: =1 to 60 do     begin        a[i]: =a[i]*sqr(min);       writeln('a[',i,']=',a[i]);     end   else    for i: =1 to 60 do     begin       a[i]: =a[i]*sqr(max);       writeln('a[',i,']=',a[i]);       end; end.