植物大战僵尸这款游戏中，有一种植物武器叫辣椒炸弹，在草坪中的任意一格摆放它可以把草坪中该行上的所有僵尸瞬间消灭，也就是说，如果在第i行中任意位置摆放一个炸弹，第i行中的所有僵尸就瞬间都被杀死了。现在我们假定草坪有r行c列，草坪中有n只僵尸，僵尸不移动，现在给你k个樱桃炸弹，要求只能使用这K个炸弹来消灭这些僵尸，请问最多可以杀死多少只僵尸。（快速排序）
freepascal吧 关注：250贴子：915
- 15回复贴，共1页
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.
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.
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1狂人阿Bin回怼网友2535570
- 2火箭vs勇士抢七你看好哪队2275427
- 3五一节的重庆到底来了多少人2232076
- 4BLG复仇WBG如何评价北川首秀1975725
- 5美国中情局公开招募中国间谍1578798
- 6赵心童战胜奥沙利文挺进决赛1278325
- 7董明珠海归回旋镖打中协和董小姐1036536
- 8EDG暴毙首次无缘世界赛995555
- 9美国人开始打飞的来中国购物了713394
- 10GTA6宣布跳票后T2股价大跌600516
- 15回复贴，共1页
发贴请遵守贴吧协议及“七条底线”贴吧投诉
发布成功
去贴吧APP订阅抽奖结果通知
扫码进入贴吧APP
···········
开奖后第一时间站内信通知
···········
中奖结果全员公示
