作业帮 > 综合 > 作业

Pascal编程:读入N个数,打印其中的最大数及其位置号

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/05 10:54:46
Pascal编程:读入N个数,打印其中的最大数及其位置号
还有一个:
给定一串整数数列,求出所有的递增和递减子序列的数目,如数列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为转则元素.
var a:array[1..10000] of integer;
n,max,wz,i:longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if maxa[2] then f:=1
else f:=0;
ans:=1;
for i:=3 to n do
if f=1 then begin if a[i]>a[i-1] then begin inc(ans);f:=0;end;end
else begin if a[i]