diferença entre o maior e o menor numero
Publicado por NewLinuxer 12/12/2005
[ Hits: 8.358 ]
program apara receber dez numeros em um vetor, porcurar o maior e o menor e mostrar a diferença entre os dois.
Program exercicio08; uses crt; Type Vetor = array[1..10] of integer; Var vet : Vetor; maior, menor, contador : integer; Begin clrscr; For contador := 1 To 10 do begin write('Informe o ',contador:2,'§ numero: '); readln (vet[contador]); end; maior:= vet[1]; menor:= vet[1]; For contador := 2 to 10 do begin if maior < vet[contador] then maior:= vet[contador]; if menor > vet[contador] then menor:= vet[contador]; end; writeln; writeln('A diferenca entre o maior e o menor numero e: ',maior-menor); Readkey; end.
Programa que realiza o reajuste salarial de acordo com o cargo
cadastro de um cliente com registro
Coleta de dados de alunos em Pascal
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Criar um script para testar pen drive (5)
Não consigo acessar os modos de desempenho (0)
Problema com alias usando locate (4)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba