6) Faça um programa para ler 10 números e escrever a soma.



Program ALGORITMO ;
var
numeros: array[1..10] e inteiro;
soma, cont: inteiro;
iniciopara cont := 1 ate 10 faça
inicioescreva('Digite o numero -->', cont,':');
leia(numeros[cont]); 
fim;
para cont := 1 ate 10 faça
soma := soma + numeros[cont];
escreva('A soma dos 10 números é:', soma);
fim.