mostrar a meior e a menor temperatura do ano com vetor
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.662 ]
programa feito para receber as temperaturas medias durante o ano, calcular e mostrar qual foi a maior e a menor temperatura e em que mes isso ocorreu.
Program exercicio12; uses crt; Type Vetor = array[1..12] of integer; Var temp : Vetor; maior, menor, contador : integer; Begin clrscr; For contador := 1 To 12 do begin write('Informe a ',contador:2,'¦ temperatura: '); readln (temp[contador]); end; maior:= temp[1]; menor:= temp[1]; For contador := 2 to 12 do begin if maior < temp[contador] then maior:= temp[contador]; if menor > temp[contador] then menor:= temp[contador]; end; writeln; write('A menor temperatura foi de: ', menor,'§C'); For contador := 1 to 12 do begin if menor=temp[contador] then write(', no ',contador,'§ mes'); end; writeln; write('A maior temperatura foi de: ', maior,'§C'); For contador := 1 to 12 do begin if maior=temp[contador] then write(', no ',contador,'§ mes'); end; Readkey; end.
Soma dois Valores e exibe o resultado
Cronômetro feito no Lazarus(Delphi 7 para Linux)
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Bora fazer um teste? mbti (14)
Aprendendo mais sobre Linux com livro (7)