vj1071 新年趣事之打&cce

Vj1071 新年趣事之打&cce

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //¼Ç¼·¾¶±³°ü //Èç¹û¸ÃÊýÄ¿À´Ô´Óжà½â »òÓÖÓÐÒ»¸öÀ´Ô´Ôò¸ÃÊýĿΪ¶à½â / const maxn=100; maxw=100000; var n:integer; now,lost:longint; a:array[0. .maxn] of integer; f,pre:array[0. .maxw] of integer; procedure init; var i:integer; begin readln(now); readln(n); for i:=1 to n do begin readln(a[i]); inc(lost,a[i]); end; dec(lost,now); end; procedure main; var i,j:longint; begin f[0]:=1;
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.
Ask a homework question - tutors are online