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

Publicado por NewLinuxer 12/12/2005

[ Hits: 8.206 ]

Download exerc10.pas




este programam demonstra como é possível selecionar o conteúdo dos vetores de forma a trabalhar com apenas uma parte dos itens, neste caso é calcula a média de todos os números informados nas posiçoes impares

  



Esconder código-fonte

Program exercicio10;

uses crt;

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

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

Begin
  clrscr;

  For contador := 1 To 19 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 das posicoes impares informados e: ',
           soma2/soma:0:2);

  Readkey;

end.

Scripts recomendados

Exemplo de for que mostra 6 números em ordem crescente

vendas de uma empresa em matriz

pares ou impares

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

armazenar estoque em 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