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.
1) (X > 0) И (Y > 3) соответствует области закрашенной "сеточкой"
2) (X > 0) ИЛИ (Y > 3) соответствует областям закрашенным серым, включая "сеточку"
Объяснение:
Если границы тоже включены, то (X >= 0) И (Y >= 3)
Важное примечание: если имеются в виду все области закрашенные серым, то логическое выражение приобретает вид: (X > 0) ИЛИ (Y > 3). А если включаются границы, то (X >= 0) ИЛИ (Y >= 3)