Delphi里使用数组和冒泡排序
November 26th, 2005 by 张磊
Code: program Project2;{＄APPTYPE CONSOLE} uses SysUtils; function minor (i : Integer) : Integer ; //为了给数组赋值 var a :Integer; begin result := -1; for a := 0 to i do begin result :=result*( -1) ; end; end; type myarray = Array [0..99] of integer; var array_1:myarray; i,j,temp : Integer; begin { TODO -oUser -cConsole Main : [...]
