随笔分类 - C/C++/Pascal/Java Code
[1][USACO][1.1.2][Greedy Gift Givers][PASCAL]
摘要:Programgift1;TypeGift=Record nm:ansistring; get,give:longint;End;VarNP:longint;ar:array[1..10]ofGift;ProcedureInit;Varj:longint;Beginreadln(NP);forj:=1toNPdobeginreadln(ar[j].nm);ar[j].get:=0;ar[j].give:=0;end;End;FunctionSearch(s:ansistring):longint;Varj:longint;Beginforj:=1toNPdobeginifar[j].nm=st
阅读全文
浙公网安备 33010602011771号