preguntas gratuitas sobre el programa Pascal

programa p1039;

var a: matriz [0..1000000] de entero largo

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

función min(x, y: longint):

var i, max: longint; p>

max:=maxlongint;

for i:=x to y do

si a[i]lt; entonces max:=a[i];

salir(max);

fin;

comenzar

readln(m, n); i：=1 a m hacer

leer(a[i]);

for i：=1 a n-1 hacer

comenzar

readln(p, x, y);

caso p de

1: escribir(min(x, y), ' '); p> 2: a[x]:=y;

fin;

fin

readln(p, x, y

caso p de

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

2: a[x]:=y

fin; ;

fin.