vj1418 公司聚会

Vj1418 公司聚会

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

View Full Document Right Arrow Icon
//´óÅ£µÄºÃ·½·¨ //ÉÏ˾±àºÅ´óÓÚÏÂÊô ´ÓºóÏòÇ°µÝÍÆ ËùÒÔ¶ÔÓÚÿһ¸öÈË pi »áÏȸøËûÏÂÊô·ÖÅä×ÊÔ´ ͬʱ¸üв»Ñ¡ pi µÄ×î¼ÑÏÂÊô·ÖÅä·½°¸ //µÈÑ»·µ½ pi ÔÙ¿´¿´Ñ¡²»Ñ¡×Ô¼ººÃ » const maxn=1024; maxm=109; var n,m:integer; p,c,e:array[0. .maxn] of integer; f:array[0. .maxn,0. .maxm] of longint; procedure init; var i:integer; begin readln(n,m); for i:=2 to n do read(p[i]); for i:=1 to n do read(c[i]); for i:=1 to n do read(e[i]); end; procedure main; var i,j,k,pi:integer; begin for i:=n downto 1 do begin if c[i]<=m then
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/21/2011 for the course CS 001 taught by Professor 001 during the Spring '11 term at Shandong University.

Ask a homework question - tutors are online