249 条题解
-
-1
程文涛 LV 7 @ 2017-07-06 13:50:22
var n,m,i,s,j:longint;
a,b:array[1..2000]of longint;
procedure sort(l,r:longint);
var i,j,x,y:longint;
begin
i:=l;
j:=r;
x:=a[(l+r) div 2];
repeat
while a[i]<x do inc(i);
while x<a[j] do dec(j);
if not(i>j)
then begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
procedure qsort(l,r:longint);
var i,j,x,y:longint;
begin
i:=l;
j:=r;
x:=b[(l+r) div 2];
repeat
while b[i]<x do inc(i);
while x<b[j] do dec(j);
if not(i>j)
then begin
y:=b[i];
b[i]:=b[j];
b[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
begin
readln(n,m);
for i:=1 to n do
readln(a[i]);
for i:=1 to m do
readln(b[i]);
sort(1,n);qsort(1,m);
for i:=n downto 1 do
begin
for j:=m downto 1 do
if (a[i]>b[j])and(b[j]<>0)
then begin a[i]:=0;b[j]:=0;inc(s);end;
end;
writeln(m-s);
end.
由于用了两次快排，所以程序较长。
苹果与陶陶高度相同时不能摘。 -
-1
bykbyk1996 LV 8 @ 2009-10-31 15:02:17
├ 测试数据 01：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 02：答案错误...程序输出比正确答案长
├ 测试数据 03：答案错误...程序输出比正确答案长
├ 测试数据 04：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 05：答案错误...程序输出比正确答案长
├ 测试数据 06：答案错误...程序输出比正确答案长
├ 测试数据 07：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 08：答案错误...程序输出比正确答案长
├ 测试数据 09：答案错误...程序输出比正确答案长
├ 测试数据 10：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出-
sunheming @ 2020-03-19 14:58:02
你给我滚！！！(ノ｀Д)ノ的预防和简单事故已收到复古的开发与施工图
-
-
-1
program p1291;
var pgg,ttg:array[0..2000]of integer;
pgs,tts,i,j,k,q,m:integer;
begin
read(pgs,tts);
for i:=1 to pgs do
readln(pgg[i]);
for i:=1 to tts do
readln(ttg[i]);
for i:=1 to pgs do
begin
q:=0;
k:=0;for j:=1 to tts do
begin
if (ttg[j]0) then
begin
if ttg[j]>k then
begin
q:=ttg[j];
k:=q;
m:=j;
end;
end;
end;
if q0 then
begin
ttg[m]:=-1;
dec(tts);
end;
end;
writeln(tts);
end.
├ Hint慢慢改吧
怎么算错了8个? -
-1
dongtao123 LV 8 @ 2009-10-08 15:39:26
编译通过...
├ 测试数据 01：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案错误...程序输出比正确答案长
├ 测试数据 04：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 05：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 06：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 07：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 08：答案错误...程序输出比正确答案长
├ 测试数据 09：答案错误...
├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team ├ 标准行输出
├ 错误行输出├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：20 有效耗时：0ms
水题也错了，吐血！！！！！！！-
问题亚光黑大V个个都是你在符合公司的粉红色的回归法施工的感觉撒图尔问题因为入而台湾以他人业务人员为他认为u
你给我(ノ｀Д)ノ
-
-
-2
程文涛
LV 7
@ 2017-07-06 13:50:22
