média dos numeros informados em posiçoes pares em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 6.728 ]
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.
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.
Calculadora utilizando until e case
Editor de texto em Pascal/Lazarus
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Erro ao iniciar Ubuntu 24.04.1 LTS - Management Owner Key - MoK (3)
Notebook instalado com Linux Debian de fábrica dando problema (3)