Média e soma de números

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

[ Hits: 7.130 ]

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

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Extenso em dll, com parâmetros adicionais

Primo_for

Calculadora de décimo terceiro salário(Lazarus)

Operações básicas da matemática


  

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