l de 1 ate 6 FACA PARA c de 1 ate 4 FACA escreval("Digite o numero referente a linha",l," e coluna",c,":") leia (matr[l,c]) SE (matr[l,c] > 30) ENTAO cont<- cont +1 FIMSE SE matr[l,c] = 30 ENTAO matr[l,c] <- 0 FIMSE FIMPARA FIMPARA escreval("A matriz tem ",cont," numeros maiores que 30.") PARA l de 1 ate 6 FACA PARA c de 1 ate 4 FACA escreva(" | ",matr[l,c]) FIMPARA escreval(" |") FIMPARAfimalgoritmoDownload arquivo alg.9 - Crie um programa que preencha uma matriz 15 x 5 com numeros inteiros, calcule e mostre quais elementos da matriz se repetem e quantas veses cada um se repete.Download arquivo alg.10 - Elabore um programa que preencha uma matriz 10 x 10 com numeros inteiros, execute as trocas especificadas a seguir e mostre a matriz resultante:- A linha 2 com a linha 8;- A coluna 4 com a coluna 10;- A diagonal principal com a diagonal secundaria;- A linha 5 com a coluna 10.algoritmo "trocas"var matr:vetor[1..10,1..10] de real matr2:vetor[1..10,1..10] de real l,c,c2:inteiroinicio PARA l de 1 ate 10 FACA PARA c de 1 ate 10 FACA escreval("Digite o numero referente a linha",l," e coluna",c,":") leia(matr[l,c]) matr2[l,c] <- matr[l,c] FIMPARA FIMPARA c2<-10 PARA l de 1 ate 10 FACA matr2[2,l] <- matr[8,l] matr2[8,l] <- matr[2,l] matr2[l,4] <- matr[l,10] matr2[l,10] <- matr[l,4] matr2[l,l] <- matr[l,c2] matr2[l,c2] <- matr[l,l] c2 <- c2-1 matr2[5,l] <- matr[l,10] matr2[l,10] <- matr[5,l] FIMPARA escreval(" Matriz Final ") PARA l de 1 ate 10 FACA escreval("| ",matr2[l,1]," | ",matr2[l,2]," | ",matr2[l,3]," | ",matr2[l,4]," | ",matr2[l,5]," | ",matr2[l,6]," | ",matr2[l,7]," | ",matr2[l,8]," | ",matr2[l,9]," | ",matr2[l,10]," | ") FIMPARAfimalgoritmoDownload arquivo alg.1 - Leia um conjunto com n numeros e informe se existe algum elemento repetido no conjunto.Download arquivo alg.2 - Leia uma matriz quadrada de ordem 10 e calcule a sua transposta. Imprima as duas matrizes.algoritmo "transposta"var matr:vetor[1..10,1..10] de real matr2:vetor[1..10,1..10] de real l,c:inteiroinicio PARA l de 1 ate 10 FACA PARA c de 1 ate 10 FACA escreval("Digite o valor referente a linha ",l," e coluna ",c,":") leia(matr[l,c]) FIMPARA FIMPARA PARA l de 1 ate 10 FACA PARA c de 1 ate 10 FACA matr2[l,c] <- matr[c,l] FIMPARA FIMPARA escreval(" Matriz Original ") PARA l de 1 ate 10 FACA escreval("| ",matr[l,1]," | ",matr[l,2]," | ",matr[l,3]," | ",matr[l,4]," | ",matr[l,5]," | ",matr[l,6]," | ",matr[l,7]," | ",matr[l,8]," | ",matr[l,9]," | ",matr[l,10]," | ") FIMPARA escreval(" ") escreval(" Matriz Transposta ") PARA l de 1 ate 10 FACA escreval("| ",matr2[l,1]," | ",matr2[l,2]," | ",matr2[l,3]," | ",matr2[l,4]," | ",matr2[l,5]," | ",matr2[l,6]," | ",matr2[l,7]," | ",matr2[l,8]," | ",matr2[l,9]," | ",matr2[l,10]," | ") FIMPARAfimalgoritmoDownload arquivo alg.3 - Ler uma matriz 6 x 6 e atribuir o valor 0 para os valores negativos encontrados fora das diagonais principal e secundariaalgoritmo "diagonais"var matr:vetor[1..6,1..6] de real l,c,h:inteiroinicio PARA l de 1 ate 6 FACA PARA c de 1 ate 6 FACA escreval("Digite o numero referente a linha",l," e coluna",c,":") leia(matr[l,c]) FIMPARA FIMPARA h<-6 PARA l de 1 ate 6 FACA PARA c de 1 ate 6 FACA SE (l<>c) e (c<>h) e (matr[l,c]<0) ENTAO matr[l,c] <- 0 FIMSE FIMPARA h<- h-1 FIMPARA escreval("