程序p1039；
var a：longint数组[0..1000000]；
i，j，k，x，y，m，n，max，p ：longint；
函数 min(x，y：longint)：longint；
var i，max：longint；
开始
max：=maxlongint；
for i：=x to y do
if a[i]lt；max then max：=a[i]；
exit(max)；
结束；
开始
readln(m，n)；
for i：=1 to m do
read(a[i])；
for i：=1 to n-1 do
begin
readln(p，x，y)；
情况p为
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；
结束。