pascal基础教程题库.pptVIP

解法一：初始时：A数组存放N个互不相等的数；B数组用于存放数组A的下标。 Program Max01;{冒泡排序法} var i,j,n,m,x:integer; A,B:ARRAY[1..100] of integer; Procedure Init; {读数初始化过程} ……{附后} Begin {MAIN} Init;{ 读数过程 } for i:=1 to N-1 do {冒泡排序} for j:=i+1 to N do if A[i]A[j] then begin x:=A[i];A[i]:=A[j];A[j]:=x; {交换A[i]与A[j]的值} x:=B[i];B[i]:=B[j];B[j]:=x; {交换B[i]与B[j]的值} end; writeln(A(,B[M],)=,A[M]); {输出第M大的数、原下标值} End. Var i,j:integer; fd:boolean; Begin write(Input N:);readln(N); {读入N} if N1 then begin writeln(Input error!);halt;end; write(Input ,N:3, Data:); For i:=1 to n