Programación para encontrar el valor máximo de todos los elementos en una matriz bidimensional m*n, así como los números de fila y columna. Los elementos se pueden generar aleatoriamente.

usa crt;

var m, n, i, j, k, x, y, max: 0..1000

comenzar

clrscr;

aleatorizar;

readln(m, n);

para i：=1 a m hacer para j：=1 a n comenzar

k:=random(1000); si xgt; max entonces comenzar max:=k; y:=j end

end; p>

escribir(x, y);

leer clave

fin.