PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 07:54:23
PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1

PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1
PASCAL NOIP1996普及组复赛第二题
2.输入三个自然数N,i,j (1

PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1
program t1;
var i,j,k,l,m,n,x,y,i1:longint;
a:array[1..10000,1..2] of longint;
procedure qsort(l,r:longint);
var i,j,x,t:longint;
begin
i:=l;
j:=r;
x:=a[(i+j) div 2,1];
repeat
while x>a[i,1] do i:=i+1;
while x