Конечно можно, 1 сторону+ 1 сторону+ 1сторону + 1 сторону
Var
x, x1: integer;
BreakLoop, NonDescending: Boolean;
begin
writeln('Вводите числовую последовательность');
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')
else
if NonDescending then writeln(#13#10, 'Последовательность неубывающая')
else writeln(#13#10, 'Последовательность невозрастающая')
end.
Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0
Последовательность неубывающая
с желтого на синий, с желтого на красный, с синего на красный, с желтого на синий, с красного на желтый, с красного на синий, с желтого на синий.
тоесть: верхний корж перекладываем с желтого на синий поднос, средний корж перекладываем с желтого на красный, верхний с синего на красный, нижний с желтого на синий, верхний с красного на желтый, средний с красного на синий, верхний с желтого на синий.
П0 -> П1 ИП0 x^2 пи * 3 / С/П ИП0 x^2 ИП1 x^2 + КвКор ИП0 пи * * ИП0 x^2 пи * + С/П
Ввод: R -> h С/П. Далее на экране объём, после С/П - площадь поверхности.
<span>A[5]:=A[6]; - шестой элемент копируется в пятый и теперь </span><span>A[5]=8
A[6]:=A[5]; - пятый элемент копируется в шестой, но поскольку перед этим шестой копировался в пятый, то содержимое шестого не поменяется и остается равным 8.
Оба элемента будут равны 8 - вариант D
</span>