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

• Download exerc10.pas
• Enviar nova versão

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.

Cáculo de Fatorial, utilizando-se de Repeat - Until

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

Calculadora completa com porcentagem(Lazarus)

maior elemento de uma matriz

soma de um intervalo

Nenhum coment�rio foi encontrado.