作业帮读入N个数,打印其中的最大数及其位置号用Pascal编程还有个题目给定一串整数数列,求出所有的递增和递减子序列的数目,如数列7,2,6,9,8,3,5,2,1可分为（7,2）,（2,6,9）,（9,8,3,）,（3,5）,（5,2,1）5
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/28 18:47:47
读入N个数,打印其中的最大数及其位置号用Pascal编程还有个题目给定一串整数数列,求出所有的递增和递减子序列的数目,如数列7,2,6,9,8,3,5,2,1可分为（7,2）,（2,6,9）,（9,8,3,）,（3,5）,（5,2,1）5
读入N个数,打印其中的最大数及其位置号
用Pascal编程
还有个题目
给定一串整数数列,求出所有的递增和递减子序列的数目,如数列7,2,6,9,8,3,5,2,1可分为（7,2）,（2,6,9）,（9,8,3,）,（3,5）,（5,2,1）5个子序列,答案就是5.我们称2,9,3,5为转则元素.
请各位大虾们帮帮忙啦
读入N个数,打印其中的最大数及其位置号用Pascal编程还有个题目给定一串整数数列,求出所有的递增和递减子序列的数目,如数列7,2,6,9,8,3,5,2,1可分为（7,2）,（2,6,9）,（9,8,3,）,（3,5）,（5,2,1）5
1.
program wt(input,output);
var
max,x,m,n,i:longint;
begin
max:=-maxlongint;
readln(n);
for i:=1 to n do
begin
read(x);
if x>max then begin max:=x;m:=i;end;
end;
writeln(max);
writeln(m);
end.
2.program wt(input,output);
var
i,sum,n:longint;
a:array[0..10000]of longint;
bo:boolean;
begin
readln(n);
for i:=1 to n do
read(a[i]);
if a[2]>a[1] then bo:=true
else bo:=false;
sum:=0;
for i:=3 to n do
begin
if (a[i]>a[i-1])and not bo then begin inc(sum);write(a[i-1],' ');bo:=true;end
else if (a[i]