第K极值 pascal 求问错在哪了

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/28 02:02:00

第K极值 pascal 求问错在哪了
我的程序：
var a:array[1..10000] of integer;
n,k,i,j,m,t:integer;
l,q:boolean;
begin
readln(n,k);
for i:=1 to n do read(a[i]);
for i:=n downto 1 do
for j:=1 to i-1 do
begin if a[j] >a[i] then begin
t:=a[i];a[i]:=a[j];a[j]:=t;end; end;
m:=a[n-k+1]-a[k];
if m=2 then q:=true;
if m

大哥你没赋初值,当m=1时,q的取值就不定了.所以应在begin后加
q:=false;
再问：唔。。我已经过了这题，似乎是数据类型不对貌似只改了数据类型就过了...
再答：好吧，只能说运气好
再问： pascal里布尔型数据有木有默认值？比如这个q会不会默认为false，因为false是0在true前.. 麻烦了！！
再答：一般是false（即零）

在N中取数 PASCAL pascal程序定义一函数digit（n,k）使得他回送整数n的从右边开始数第k个数字的值 dec在pascal中是什么意思 Pascal语言编程问题,找出第k个被3,5,7除的时候,余数为2,3,2的数已知函数f(x)=(lnx+k)/e^x在点x=1处取得极值函数y=x^3+kx在R上无极值,求k的取值范围 pascal pascal pascal! 在pascal语言中halt是什么意思? Illegal qualifier 在pascal 中的意思 pascal题在N行N列的数阵中,数K（1〈＝K〈＝N）在每行和每列中出现且仅出现一次,这样的数阵叫N阶拉丁方阵.例如试求出小数点后第n位数字 pascal pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.