Média das Idades em Pascal

Esse é mais um pedaço do meu livro que espero que até o mês que vem esteja publicado, há mais 300 códigos

Fazer um programa em Pascal que receba 10 idades, mostre as idades e calcule a média.

Código:

Program Media_Idade;
Uses Crt;
Var
  Idade : Array [1..10] of Integer;
  I : Integer;
  Soma : Integer;
  Media : Real;

// Programa Principal
Begin
  Clrscr;

  // Entrada das Idades
  For i := 1 To 10 Do
  Begin
    Write ('Entre com a idade da pessoa no. ',i:2,' : ');
    ReadLn (Idade [i]);
  End;

  WriteLn; // Pula uma linha

  // Soma as idades e mostra
  Soma := 0;
  WriteLn ('Idades: ');
  For i := 1 To 10 Do
  Begin
    Write (Idade[i]:4);
    Soma := soma + Idade[i];
  End;

  WriteLn; // Próxima Linha
  WriteLn; // Pula uma linha

  // Resultado
  Media := soma / 10;
  WriteLn ('A média das idades ‚: ',media:5:1);
  ReadLn;
End.

 

Tela de Resultados:

 

pascal-media-idades 

Qualquer dúvida entre em contato.

Nenhum comentário:

Postar um comentário