mostrar a meior e a menor temperatura do ano com vetor
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.523 ]
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.
Programa lê nome (básico) - Pascal para iniciantes
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não consigo instalar o IDLE no Debian (4)
11 russos foram removidos do desenvolvimento do kernel Linux (3)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta