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

• Download repeat_questao04.pas
• Enviar nova versão

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.

controle de notas de uma clase com vetor e registro

Editor de texto em Pascal/Lazarus

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Rompecompiladores Ackerman

Nenhum comentário foi encontrado.