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 conjunto com n numeros e informe se existe algum elemento repetido no conjunto.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]," | ") fimparafimalgoritmo3 - 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(" matriz final ") para l de 1 ate 6 faca escreval(" | ",matr[l,1]," | ",matr[l,2]," | ",matr[l,3]," | ",matr[l,4]," | ",matr[l,5]," | ",matr[l,6]," | ") fimparafimalgoritmo4 - Leia matriz A de 8x8, depois preencha uma matriz B de mesma ordem, trocando as linhas da matriz A pelas colunas da matriz B. Exemplo: 1a linha da matriz A, sera a 1a coluna da matriz B2a linha da matriz A, sera a 2a coluna da matriz Be assim por diante. Escreva a matriz resultante.algoritmo "linha_colu"var matr:vetor[1..8,1..8] de real matr2:vetor[1..8,1..8] de real l,c:inteiroinicio para l de 1 ate 8 faca para c de 1 ate 8 faca escreval("digite o valor referente a linha ",l," e coluna