mostrar a meior e a menor temperatura do ano com vetor
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.700 ]
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.
Achar o maior e o menor valor inserido pelo usuario
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
SAMBA parou de compartilhar [RESOLVIDO] (3)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (8)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)