第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/07/14 04:53:35
![第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[](/uploads/image/z/14251184-8-4.jpg?t=%E7%AC%ACK%E6%9E%81%E5%80%BC+pascal+%E6%B1%82%E9%97%AE%E9%94%99%E5%9C%A8%E5%93%AA%E4%BA%86%E6%88%91%E7%9A%84%E7%A8%8B%E5%BA%8F%EF%BC%9Avar+a%3Aarray%5B1..10000%5D+of+integer%3Bn%2Ck%2Ci%2Cj%2Cm%2Ct%3Ainteger%3Bl%2Cq%3Aboolean%3Bbeginreadln%28n%2Ck%29%3Bfor+i%3A%3D1+to+n+do+read%28a%5Bi%5D%29%3Bfor+i%3A%3Dn+downto+1+dofor+j%3A%3D1+to+i-1+dobegin+if+a%5Bj%5D+%3Ea%5Bi%5D+then+begint%3A%3Da%5Bi%5D%3Ba%5Bi%5D%3A%3Da%5Bj%5D%3Ba%5B)
第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;