Question

PASCAL难题题目描述在n个数组成的序列a中，任意选出m个数字使这m个数的极差（这m个数中最大值与最小值之差）最小。输

Answer 1

var a,b:array[1..1000000]of longint;

i,j,k,t,:longint;

procedure qsort(s,t:longint);

var i,j,x:longint;

begin

i:=s;j:=t;x:=a[i];

while (i