Média e soma de números

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

[ Hits: 7.160 ]

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

Executar comando do DOS.

média de uma turma

Calculadora Básica

Cálculadora de décimo terceiro

media/record


  

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