SE sela > matr[l,c] ENTAO sela<- matr[l,c] lin<- l co<- c FIMSE FIMPARA cont<-0 PARA l2 de 1 ate 5 FACA SE sela <= matr[l2,co] ENTAO SE (l2<>lin) e (c<>co) ENTAO cont<- cont+1 FIMSE FIMSE FIMPARA SE cont = 0 ENTAO escreval(" ") escreval("O ponto de sela da matriz esta na linha",lin,", e na coluna",co," e tem valor",matr[lin,co],".") conta<- conta+1 FIMSE FIMPARA SE conta = 0 ENTAO escreval(" ") escreval("Essa matriz nao tem nenhum ponto de sela.") FIMSEfimalgoritmo8 - Elabore um programa que preencha uma matriz de 6x4 com numeros inteiros, cacule e mostre quantos elementos dessa matriz sao maiores que 30 e, em seguida, monte uma segunda matriz com os elementos diferentes de 30. No lugar do numero 30 da segunda matriz, coloque o numero zero.algoritmo "quest8"var matr: vetor[1..6,1..4] de inteiro l,c,cont:inteiroinicio cont<-0 PARA 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(" |") FIMPARAfimalgoritmo9 - 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."niguem conseguiu faser nem mesmo o professor conseguiu desculpem mas em breve potarei"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]," | ") FIMPARAfimalgoritmo1 - Leia um ctoonjun com n numeros e informe se existe algum elemento repetido no conjunto.algoritmo "exec_01_aula24"varrepete,x,y,cont:inteiron:vetor[1..5] de realiniciopara x de 1 ate 5 faca escreva("Digite um numero: ") leia(n[x])fimparapara x de 1 ate 5 faca repete<-0 cont<-(-1) para y de 1 ate 5 faca se (n[y]=n[x]) entao repete<-1 cont<-cont+1 fimse fimpara se (repete = 1) entao se (cont >=1) entao escreval("O Numero",n[x]," repetiu",cont," vezes.") senao escreval("O Numero",n[x]," nao repetiu nenhuma vez.") fimse fimsefimparafimalgoritmo2 - 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