mostrar a meior e a menor temperatura do ano com vetor
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.723 ]
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.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (0)
Programa fora de escala na tela do pc (29)
É normal não gostar de KDE? (9)









