Tem como acumular a posição do vetor dentro da váriavel ?

[Tuufee]

Boa noite, estou tentando fazer um algoritmo simples de vetor que seria esse:

"Escreva um algoritmo que,  leia um vetor de 10 posições, e  determine e exiba :

§  A média dos valores deste vetor;

§  O maior elemento deste vetor;

A posição de menor elemento deste vetor"

consegui fazer quase tudo, só preciso conseguir colocar a posição do menor vetor, não sei se é possível no visualg adicionar a posição do vetor na variável, gostaria que me respondessem, obrigado.

Algoritmo "semnome"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   : Antonio Carlos Nicolodi
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 13/05/2017
Var
   vet : vetor [1..10] de inteiro
   c,maior,menor,i: inteiro
   media : real


Inicio

   para c de 1 ate 10 faca
      escreval("digite um numero inteiro : ")
      leia(vet[c])
      media <- media + vet[c]
   fimpara
   media <- media / 10

   para c de 1 ate 10 faca
      Se (vet[c] > maior) então
         maior <- vet[c]
      fimse

      Se (c = 1) então
         menor <- vet[c]
      fimse

      Se (vet[c] < menor) então
         menor <- vet[c]
      fimse
   fimpara

   escreval("A media dos numeros do vetor é ",media)
   escreval("o maior numero no vetor é ",maior)
   escreval("A posição de menor valor no vetor é ",menor)


Fimalgoritmo

 

[devair1010]

@Tuufee     para mostrar a posição do numero no vetor não precisa acumular a posição do vetor não, o que precisa é colocar mais uma variável para guardar tal posição e aí quando pegar a menor posição guarda ela na variável.

veja como ficaria o seu código :

Algoritmo "semnome"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   : Antonio Carlos Nicolodi
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 13/05/2017
Var
   vet              : vetor [1..10] de inteiro
   c,maior,menor,i,d: inteiro
   media            : real


Inicio

   para c de 1 ate 10 faca
      escreval("digite um numero inteiro : ")
      leia(vet[c])
      media <- media + vet[c]
   fimpara
   media <- media / 10

   para c de 1 ate 10 faca
      Se (vet[c] > maior) ENTÃO
         maior <- vet[c]
      fimse

      Se (c = 1) ENTÃO
         menor <- vet[c]
      fimse

      Se (vet[c] < menor) ENTÃO
         menor <- vet[c]
         d:=c
      fimse
   fimpara

   escreval("A media dos numeros do vetor é -------> ",media)
   escreval("o maior numero no vetor é ------------> ",maior)
   escreval("O Menor Numero No Veteor é -----------> ",menor)
   escreval("A posição de menor valor no vetor é --> ",d)


Fimalgoritmo

 

[Simon Viegas]

ADENDO:

 

O cálculo da média está conceitualmente errado... a média «"é obtida dividindo-se a soma das observações pelo número delas», ou seja, "somatório dos números, dividido pela quantidade de números", mas no seu código está assim:
 

11 horas atrás, devair1010 disse:

      media <- media + vet[c]
   fimpara
   media <- media / 10

Ou seja, está utilizando a mesma variável para acumular e também ser o resultado.Vai funcionar? vai, mas um algoritmo não é só entregar uma resposta certa, a forma como foi feita também conta... Dizer que média é igual a média dividido por 10 fica estranho... (na minha opinião). Resumidamente: use outra variável para acumular, e a média será essa variável divido por 10.

 

 

 

 

12 horas atrás, devair1010 disse:

escreval("O Menor Numero No Veteor é -----------> ",menor)

 

Obs.: Essa informação não é solicita, logo não sendo necessário.