pascal语言题

来源：百度知道 编辑：UC知道 时间：2024/06/17 11:24:27
n个数先排序后查找（同一个程序），找到了输出这个数的位置，找不到输出
找不到这个数
要程序体
顺便讲解一下

program mpsort;
var
a: array[1..20] of integer;
i,j,k,m,n:integer;
flag:boolean;
begin
read(n);
read(k);
——————上面是读取有几个数和要查找的数
for i:= 1 to n do
begin
read(a[i]);
end;
——————读取那些数
for i:=1 to n do
for j:= 1 to n-i do
begin
if (a[i]<a[i+1]) then
begin
m:=a[i]; a[i]:=a[i+1];a[i+1]:=m;
end;
end;
——————冒泡排序，从大到小排
flag:=false;
for i:= 1 to n do
begin
if k=a[i] then
begin
writeln(i);
flag:=true;
end
end;
——————查找，找到了布尔变量就设为true并输出，否则布尔变量仍为false
if flag=false then
writeln('找不到这个数');
readln;
——————找不到的情况
end.

你交换时是不是变量搞错了