这是我的程序,可以通过的,不知对你有没有帮助,但真的是自己做的哦~program happy;type list=record
money:integer;
imp:integer;
end;
arrlist=array [1..25] of list;var n,m,i,j,t,c,max:integer;
a:arrlist;
max1:longint;beginassign(input,'happyin.pas');reset(input);read(input,n);readln(input,m);for i:= 1 to m dobegin
read(input,a.money);
readln(input,a.imp);end;for i:=1 to m-1 do
for j:=i+1 to m do
if a.money*a.imp<a[j].money*a[j].imp then
begin
t:=a.money;
a.money:=a[j].money;
a[j].money:=t;
c:=a.imp;
a.imp:=a[j].imp;
a[j].imp:=c;
end;max:=0;max1:=0;for j:=1 to m dobegin
if max+a[j].money<=n then
begin
max:=max+a[j].money;
max1:=max1+a[j].money*a[j].imp;
end;end;assign(output,'happyout.pas');rewrite(output);write(output,max1);close(input);close(output);end. |