UC知道求pascal题目1个
来源：百度知道 编辑：UC知道 时间：2024/05/10 14:20:41
试写个PASCAL程序显示员工数及他们年薪的中间值.需要输入的数据是员工每人的年薪.员工数限定在500内!!!
var
a array[1..500] of integer;
x,i,j,m,mid:integer;
begin
m:=0;
for i:=1to500 do
readln(a[i]); //读入
for i:=1to500 do
begin
if a[i]<>0 then
m:=m+1;
end; //记数
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[j]<a[j+1]
begin
mid:=a[j];
a[j]:=a[j+1];
a[j+1]:=mid;
end;
end; //排序
y:=m div 2;
if m mod 2 =0 then
writeln(a[y],a[y+1])
else
writeln(a[y]); //输出中间值
writeln(m);
readln;
end.
同上
?