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

Publicado por NewLinuxer 12/12/2005

[ Hits: 6.746 ]

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

Calculadora Empresarial Lazarus

media/record

Maior numero do Vetor

Script Copa do Mundo

soma da diagonal principal de uma matriz


  

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