Maior e Menor Posição. --- MATRIZ ----

var

matriz : vetor[1..4,1..4] de inteiro
i,j, menor, maior, imaior, jmaior, imenor, jmenor : inteiro

inicio

aleatorio 1,20

para i de 1 ate 4 faca
   para j de 1 ate 4 faca
      escreval("entre com o elemento [",i,",",j,"]")
      leia(matriz[i,j])
   fimpara
fimpara

para i de 1 ate 4 faca
   para j de 1 ate 4 faca
      escreva(" | " , matriz[i,j] , "")
   fimpara
   escreval("")
   escreval("    _     _    _    _ ")
fimpara


para i de 1 ate 4 faca
   para j de 1 ate 4 faca
      se((i = 1) e (j = 1)) entao
         maior <- matriz[i,j]
         menor <- matriz[i,j]
         imaior <- i
         jmaior <- j

         imenor <- i
         jmenor <- j

      senao
         se(matriz[i,j] > maior) entao
            maior <- matriz[i,j]
            imaior <- i
            jmaior <- j
         fimse

         se(matriz[i,j] < menor) entao
            menor <- matriz[i,j]
            imenor <- i
            jmenor <- j
         fimse
      fimse
   fimpara
fimpara

escreval("O menor elemento da matriz é ", menor , " e está na posição [", imenor, ",",jmenor,"]")
escreval("O maior elemento da matriz é ", maior , " e está na posição [", imaior, ",",jmaior,"]")

fimalgoritmo