用于开发税务票据管理的软件

				procedure MDIAN1(var X:array of real; N:integer;var XMED:real);
				var
				    N2:integer;
				begin
				    SORT(N, X);
				    N2:=N div 2;
				    If 2 * N2 = N Then
				        XMED:=0.5 * (X[N2] + X[N2 + 1])
				    Else
				        XMED:=X[N2 + 1];
				end;