level 1
植物大战僵尸这款游戏中,有一种植物武器叫辣椒炸弹,在草坪中的任意一格摆放它可以把草坪中该行上的所有僵尸瞬间消灭,也就是说,如果在第i行中任意位置摆放一个炸弹,第i行中的所有僵尸就瞬间都被杀死了。现在我们假定草坪有r行c列,草坪中有n只僵尸,僵尸不移动,现在给你k个樱桃炸弹,要求只能使用这K个炸弹来消灭这些僵尸,请问最多可以杀死多少只僵尸。(快速排序)
2013年08月18日 08点08分
1
level 3
var r,c,k,n,t,j,i,a1,s,b1:longint;
a,b:array[1..10000] of longint;
begin
read(r,c,k,n);
for i:=1 to n do
begin
read(a1,b1);
inc(a[a1]);b[a1]:=a1;
end;
for i:=1 to r-1 do
for j:=i+1 to r do
if (a[i]<a[j])or((a[i]=a[j])and(b[i]>b[j])) then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
t:=b[i];b[i]:=b[j];b[j]:=t;
end;
for i:=1 to k do inc(s,a[i]);
writeln(s);
for i:=1 to k-1 do
for j:=i+1 to k do
if b[i]>b[j] then
begin
t:=b[i];b[i]:=b[j];b[j]:=t;
end;
for i:=1 to k do
write(b[i],' ');
end.
2017年08月03日 11点08分
14