第K极值 pascal 求问错在哪了我的程序：var a:array[1..10000] of integer;n,k,i,j,m,t:integer;l,q:boolean;beginreadln(n,k);for i:=1 to n do read(a[i]);for i:=n downto 1 dofor j:=1 to i-1 dobegin if a[j] >a[i] then begint:=a[i];a[i]:=a[j];a[
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/26 22:14:07
第K极值 pascal 求问错在哪了我的程序：var a:array[1..10000] of integer;n,k,i,j,m,t:integer;l,q:boolean;beginreadln(n,k);for i:=1 to n do read(a[i]);for i:=n downto 1 dofor j:=1 to i-1 dobegin if a[j] >a[i] then begint:=a[i];a[i]:=a[j];a[
第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
第K极值 pascal 求问错在哪了我的程序：var a:array[1..10000] of integer;n,k,i,j,m,t:integer;l,q:boolean;beginreadln(n,k);for i:=1 to n do read(a[i]);for i:=n downto 1 dofor j:=1 to i-1 dobegin if a[j] >a[i] then begint:=a[i];a[i]:=a[j];a[
大哥你没赋初值,当m=1时,q的取值就不定了.所以应在begin后加
q:=false;