作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/25 18:37:38
读入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为转则元素.
请各位大虾们帮帮忙啦
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]