作业帮 > 英语 > 作业

输入一个由10个整数组成的序列,其中序列中任意连续三个整数都互不相同,求该序列中所有递增或递减子序列的个数.

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:英语作业 时间:2024/07/22 07:47:07
输入一个由10个整数组成的序列,其中序列中任意连续三个整数都互不相同,求该序列中所有递增或递减子序列的个数.
例如:
输入:1 10 8 5 9 3 2 6 7 4
输出:6
对应的递增或递减子序列为:
1 10
10 8 5
5 9
9 3 2
2 6 7
7 4
请用pascal做
输入一个由10个整数组成的序列,其中序列中任意连续三个整数都互不相同,求该序列中所有递增或递减子序列的个数.
const
n=10;
var
i,j,k,l:integer;
ch:char;
begin
read(i);
ch:='N';
k:=0;
for l:=2 to n do
begin
read(j);
if (i>j)and(ch'U')
then inc(k);
if (ij then ch:='U';
if i