readln(n);
f1:=0;
f2:=0;
for i:=1 to n do
begin
readln(x);
...
...
p:=x;
end;
if f1>f2 then writeln('Последовательность неубывающая');
if f1<f2 then writeln('Последовательность невозрастающая');
if f1+f2=0 then writeln('Последовательность с одинаковыми элементами');
if f1*f2=1 then writeln('Последовательность неупорядоченная');
Ответы высылать мне через ПМ, или почту.
Администрация форума не участвует.
-------------------
(*) оператора :=, операндами которого могут быть выражения.