- 29 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 20:57:57 ]
- お前ら宿題やってやれｗ
誰もやらないから作ってみた↓
program test(input,output);
type
bb=array[1..100] of integer;
usee=array[1..100] of boolean;
var
b:bb;
use:usee;
n,i,p,count:integer;
begin
count:=0;
p:=0;
readln(n);
for i:=1 to n do
b[i]:=i;
for i:=1 to n do
use[i]:=false;
a(p,n,count,b,use);
end.
これに次のprocedureを付ければ多分使える↓
