divtim1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 33 行

program dt;
var v:array[1..100] of integer;
    n,i,min,max:integer;
procedure caut(p,q:integer;var min, max:integer);
var m,min1,min2,max1,max2:integer;
begin
if p=q then
       begin
       min:=v[p];
       max:=v[p]
       end
       else
       begin
       m:=(p+q) div 2;
       caut(p,m,min1,max1);
       caut(m+1,q,min2,max2);
       if min1<min2 then min:=min1
                    else min:=min2;
       if max1>max2 then max:=max1
                    else max:=max2;
       end;
end;
begin
write('n=');readln(n);
for i:=1 to n do
              begin
              write('v[',i,']=');
              readln(v[i]);
              end;

caut(1,n,min,max);
write(min,' ',max);
end.