Média e soma de números

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

[ Hits: 6.526 ]

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

Fatorial

Extenso em dll, com parâmetros adicionais

Achar o maior e o menor valor inserido pelo usuario

maior elemento de uma matriz

jogo bobo testando com case


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts