Question

Leia uma matriz 3 x 3, conte e escreva quantos valores maiores que 10
ela possui.

Answer 1

Olha o script!

algoritmo "semnome"

var

mat:vetor[1..3,1..3] de inteiro

l,c:inteiro

cont:inteiro

inicio

para l <- 1 ate 3 faca

  para c <- 1 ate 3 faca

     Escreva("Número[",l,c,"]: ")

     leia(mat[l,c])

  fimpara

fimpara

limpatela

para l <- 1 ate 3 faca

  para c <- 1 ate 3 faca

     Escreva(mat[l,c]:4)

  fimpara

  Escreval()

fimpara

limpatela

cont <-0

para l <- 1 ate 3 faca

  para c <- 1 ate 3 faca

      Se (mat[l,c]>10) entao

      Escreval(mat[l,c])

      cont <- cont +1

    fimse

  fimpara

fimpara

   Escreva("O total de maiores de dez é",cont)

fimalgoritmo