Exemplo 13

 =============================================================
 Exemplo 13:

 Faça um programa que some os valores (INTEIRO) de um vetor de 50 posições. 

=============================================================

// Seção de Declarações 

var

valor:vetor[1..50]de inteiro

soma,cont:inteiro

inicio

// Seção de Comandos

para cont de 1 ate 50 faca

     escreval("Escreva um numero")

     leia(valor[cont])

fimpara

// Essa instrução PARA é para somar todos os valores do vetor.

para cont de 1 ate 50 faca

     soma<-soma+valor[cont]

fimpara

       escreval("O resultado da soma do vetor é ",soma)

fimalgoritmo

 =============================================================