média dos numeros informados em posiçoes pares em um vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 6.751 ]

Download exerc09.pas




programa para calcular a media dos quarenta números informados em um vetor, porem só considera os numeros informados nas posições de ordem par.

  



Esconder código-fonte

Program exercicio09;

uses crt;

Type
  Vetor = array[1..40] of integer;

Var
  vet : Vetor;
  soma,soma2, contador : integer;

Begin
  clrscr;

  For contador := 1 To 40 do
  begin
    write('Informe o ',contador:2,'§ numero: ');
    readln (vet[contador]);
    if (contador mod 2) = 0 then
    begin
      soma:=soma+1;
      soma2:=soma2+vet[contador];
    end;
  end;

  writeln;
  writeln('A media dos numeros pares informados e: ',soma2/soma:0:2);

  Readkey;

end.

Scripts recomendados

Crivo de Eratóstenes Simples em Ada 95

Rompecompiladores Ackerman

Gerador de senha Pascal/Lazarus

Criptografador(Conceito criptografia)Lazarus

Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius


  

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