#LogicaDeProgramaçao exercicio de matriz/Vetor visualg

[JoãoForum 0]

Preciso para amanha nao estou conseguindo mesmo.Gente to precisando muito da ajuda de vocês eu comecei a fazer um algoritmo eu fiz ele todo certinho e tudo mais,mas meu professor disse que esta com um erro que se colocar 2 números iguais ele fica aparecendo toda hora e ele nao pode aparecer,esta meio confuso eu sei mas segue o código e a pergunta ai a baixo pra ve se você podem me ajudar

Pergunta :Faça um algoritmo para ler 50 números e armazenar em um vetor VET, verificar e escrever se existem números repetidos no vetor VET e em que posições se encontram.

algoritmo que eu fiz:

algoritmo "semnome"

// Função :

// Autor :

// Data : 02/12/2016

// Seção de Declarações

var

vet: vetor[1..50] de inteiro

i, j, qtd, total: inteiro

inicio

para i de 1 ate 50 faca

escreva("Informe vet[", i, "]: ")

leia(vet)

fimpara

total <- 0

para i de 1 ate 49 faca

qtd <- 0

para j de i+1 ate 50 faca

se (vet = vet[j]) entao

se (qtd = 0) entao

escreva(vet, " ocorre em ", i)

fimse

escreva(", ", j)

qtd <- qtd + 1

fimse

fimpara

total <- total + qtd

se (qtd > 0) entao

escreval(" ")

fimse

fimpara

se (total = 0) entao

escreval("Não existem números repetidos no vetor")

fimse

fimalgoritmo

tem um outro que esta com um erro grotesco e nao estou entendendo muito bem eu fizz mas nao sei se esta certo alguem pode me ajduar

pergunta:Escreva um algoritmo que leia uma matriz de inteiros 5X5 e verifique se a soma dos elementos das diagonais são iguais.

código que tentei fazer

Algoritmo "Exercicio 20"

Var

// Seção de Declarações das variáveis

M: vetor[0..4,0..4] de inteiro

i,j,soma1,soma2: inteiro

Inicio

// Seção de Comandos, procedimento, funções, operadores, etc...

soma1<-0

soma2<-0

//Perguntando os valores da matriz

para i de 0 ate 4 faca

para j de 0 ate 4 faca

escreval("Informe o valor na linha ",i," coluna ",j)

leia(M[i,j])

fimpara

fimpara

//Realizando soma da diagonal principal

para i de 0 ate 4 faca

para j de 0 ate 4 faca

se i=j entao

soma1<-M[i,j] + soma1

fimse

fimpara

fimpara

//Realizando soma da diagonal secundaria

para i de 0 ate 4 faca

para j de 0 ate 4 faca

se i+j=6 entao

soma2<-M[i,j]+soma2

fimse

fimpara

fimpara

//Resultado

se soma1=soma2 entao

escreval("A soma das diagonais são iguais! :D")

senao

escreval("A soma das diagonais são diferentes! D:")

fimse

Fimalgoritmo