mostrar a meior e a menor temperatura do ano com vetor
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.440 ]
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.
Calculo do Fatorial Utilizando-se de for
Crivo de Eratóstenes Simples em Ada 95
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Instalando Google Chrome no Ubuntu 24.04 LTS
Quantidade de caracteres suportados na barra de endereços dos navegadores
Instalando o Firefox via pacote .deb no Ubuntu 24.04 LTS
Como criar um robot em NTSL (Nelogica Trading System Language) para Profitchart
Acesso a internet servidor virtualizado [RESOLVIDO] (12)
Segunda tela não dá vídeo mas reconhece o monitor no painel (0)