古詩詞大全網 - 四字成語 - free pascal 程序題

free pascal 程序題

program p1039;

var a:array [0..1000000] of longint;

i,j,k,x,y,m,n,max,p:longint;

function min(x,y:longint):longint;

var i,max:longint;

begin

max:=maxlongint;

for i:=x to y do

if a[i]<max then max:=a[i];

exit(max);

end;

begin

readln(m,n);

for i:=1 to m do

read(a[i]);

for i:=1 to n-1 do

begin

readln(p,x,y);

case p of

1:write(min(x,y),' ');

2:a[x]:=y;

end;

end;

readln(p,x,y);

case p of

1:writeln(min(x,y));

2:a[x]:=y;

end;

end.