pascal 冒泡排序 给我一个完整代码

一、pascal 冒泡排序 给我一个完整代码

例:输入序列数据按非减顺序输出。

程序1:

program mppx;

const n=7;

var a:array[1..n] of integer;

i,j,k,t:integer;

begin

write('Enter date:');

for i:= 1 to n do read(a[i]);

for i:=1 to n -1 do

for j:=n downto i+1 do

if a[j-1]begin t:=a[j-1];a[j-1]:=a[j];a[j]:=t end; write('output data:'); for i:= 1 to n do write(a[i]:6); writeln; end. 程序2： program mppx; const n=7; var a:array[1..n] of integer; i,j,k,t:integer; bool:boolean; begin write('Enter date:'); for i:= 1 to n do read(a[i]); i:=1;bool:=true; while (i begin bool:=false; for j:=n downto i+1 do if a[j-1] begin t:=a[j-1];a[j-1]:=a[j];a[j]:=t;bool:=true end; i:=i+1; end; write('output data:'); for i:= 1 to n do write(a[i]:6); writeln; end. 程序3： program mppx; const n=7; var a:array[1..n] of integer; i,j,k,t:integer; begin write('Enter date:'); for i:= 1 to n do read(a[i]); writeln; k:=n; while k>0 do begin j:=k-1;k:=0; for i:=1 to j do if a[i]>a[i+1] then begin t:=a[i];a[i]:=a[i+1];a[i+1]:=t;k:=i;end; end; write('output data:'); for i:= 1 to n do write(a[i]:6); writeln; end.

二、山东劳动职业技术学院代码

山东劳动职业技术学院统招文理类代码是 7048

三、有人知道DNF的男格斗EX技能代码么 详细点的 我想改柔道的技能但不知道代码

hnishishabiahnibeipianl

四、河南交通职业技术学院各专业代码

河南交通职业技术学院专业号码

五、WOW的SS的宏恐惧+痛苦诅咒+虚弱诅咒顺序代码

/castsequence reset=30/target/combat 恐惧,痛苦诅咒,虚弱诅咒

3个技能依次执行（按一次一个技能），全部执行完、30秒后、切换目标或者脱离战斗自动重置。

另外楼上的，如果是把3个技能排序写的话，第1个CD会自动执行第2个和第3个（第2个没CD的话），但如果第1个技能没CD那么始终只会执行第1个。

六、请教PANTONE:2945C与国标颜色对应代码?

对应的RGB值为 Red 0, Green 87, Blue 166