Média e soma de números

Publicado por Santiago Staviski (última atualização em 27/10/2009)

[ Hits: 7.127 ]

Homepage: http://allenkonstanz.blogspot.com

Download repeat_questao04.pas




Programa pede uma quantidade ilimitada de números e como saída dá a soma e a média dos números.

  



Esconder código-fonte

program repeat_questao04;
var numeros,soma,contador,x: integer;
    media:real;
BEGIN
write('Digite a quantidade de numeros que deseja informar: ');
read(x);
soma:=0;
numeros:=0;
contador:=x;   
repeat 
write('Digite um numero: ');
read(numeros);
soma:=soma+numeros;
contador:=contador-1;
until contador=0;
writeln('As soma dos numeros eh: ',soma);
media:=soma/x;
writeln('As media dos numeros eh: ',media:0:2);   
END.

Scripts recomendados

Cauculadora em Pascal

Exemplo de for que mostra 6 números em ordem crescente

Extenso em dll, com parâmetros adicionais

Matrix

Raiz Quadrada.


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts