- 105 名前：デフォルトの名無しさん [2006/02/05(日) 02:10:49 ]
- 入力された値を大きい順に並べて出力するプログラムのつもりで作りました。
０で入力停止のはずなのに止まらないし、なんか変な結果が出ます。
どこに問題があるのでしょうか？？
program k(input,output);
var count,x,i : integer;
data : array[1..100]of integer;
procedure swap(a,b : integer);
var tmp : integer;
begin
readln(a,b);
if a<b then
begin
tmp:=a;
a:=b;
b:=tmp
end;
end; { swap }
