Составить логическое выражение, для которого заштрихованная область является областью истинности

1) (X > 0) И (Y > 3) соответствует области закрашенной "сеточкой"

2) (X > 0) ИЛИ (Y > 3) соответствует областям закрашенным серым, включая "сеточку"

Объяснение:

Если границы тоже включены, то (X >= 0) И (Y >= 3)

Важное примечание: если имеются в виду все области закрашенные серым, то логическое выражение приобретает вид:  (X > 0) ИЛИ (Y > 3). А если включаются границы, то  (X >= 0) ИЛИ (Y >= 3)

Заполнение с клавиатуры:

Var
   A:array[1..5] of integer;
   i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
    Begin
    Read(A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

Заполнение случайными числами:

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.