storage.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

program E3_6; {storage}
var
   l,f,w:array[1..10000] of integer;
   n,i,j,k:integer;
begin
 assign(input,'storage.in'); reset(input);
 readln(input,n);
 for i:=1 to n do readln(l[i],f[i]);
 close(input);
 for i:=1 to n do w[i]:=i;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if f[w[i]]/1000*l[w[i]]<f[w[j]]/1000*l[w[j]] then
      begin
    	k:=w[i];
        w[i]:=w[j];
      	w[j]:=k;
      end;
 assign(output,'storage.out');
 rewrite(output);
 for i:=1 to n-1 do write(w[i],' ');
 writeln(w[n]);
 close(output)
end.