mostrar a meior e a menor temperatura do ano com vetor
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.650 ]
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.
Editor de texto em Pascal/Lazarus
escreve os números de 1 a 9 com repeat - until
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Mikrotik não abre o webmail-segur... da Locaweb (10)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (0)