Ниже
Объяснение:
1.
использовать Робот
алг
нач
вправо
вверх
влево
нц пока слева свободно и снизу стена
закрасить
влево
кц
кон
2.
использовать Робот
алг
нач
нц пока снизу стена и справа свободно
закрасить
вправо
закрасить
кц
нц пока снизу свободно
нц пока снизу свободно и слева стена
закрасить
вниз
кц
нц пока снизу свободно и слева свободно
вниз
кц
кц
кон
3.
использовать Робот
алг
нач
вверх
влево
вниз
нц пока снизу свободно
нц пока справа стена и снизу свободно
закрасить
вниз
кц
нц пока справа свободно и снизу свободно
вниз
кц
кц
нц пока слева свободно
нц пока слева свободно и снизу стена
закрасить
влево
кц
нц пока снизу свободно и слева свободно
влево
кц
кц
кон
очищения кожи:подойдет инструмент Spot Healing Brush Tool (J) (Точечная восстанавливающая кисть) панели инструментов и выберите штамп (S), непрозрачность кисти понизьте до 30%. Этим инструментом уберите морщины под глазами. Для придания коже гладкости воспользуйтесь командой Color Range (Цветовой диапазон). Для ее открытия зайдите в меню Select > Color Range (Выделение - Цветовой диапазон). После этого нажмите в любом месте на коже и в окне цветового диапазона понизьте значение Fuzziness (Разброс) После того, как все участки, необходимые для разглаживания, будут выделены, нужно скопировать их на новый слой Ctrl + J. К этому слою примените фильтр Gaussian Blur (Размытие по Гауссу) со значением радиуса 2 пикселя.
var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые пользователем: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]>0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]<0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 <> 0 then write (a[i],' ');
end;
end.