vj1103 校门外的树

Vj1103 - const maxm=100 var n,m,ans:integer a,b:array[0.maxm of integer procedure init var i:integer begin readln(n,m for i:=1 to m do read(a[i,b[i

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

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //ºÏ²¢Çø¼ä //×¢ÒâµÚÒ»´Î¸üÐÂÇø¼ä / //½÷¼Ç²âÊÔϽç / const maxm=100; var n,m,ans:integer; a,b:array[0. .maxm] of integer; procedure init; var i:integer; begin readln(n,m); for i:=1 to m do read(a[i],b[i]); end; procedure main; var i,j,t,l,r:integer; begin for i:=1 to m-1 do for j:=i+1 to m do if a[i]>a[j] then begin
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