encontrar o maior e o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 20.558 ]
este script foi desenvolvido para encontrar o maior e o menor valor em um vetor de 20 posiçoes, sendo que após localizados os valores ele retorna quem sao os valores e a posicao em que foram informados.
program exercicio05; uses crt; var posicao : array [1..20] of integer; maior, menor, contador: integer; Begin clrscr; For contador := 1 To 20 do begin write('Digite o ',contador:2,'§ n£mero: '); readln (posicao[contador]); end; maior:= posicao[1]; menor:= posicao[1]; For contador := 2 to 20 do begin if maior < posicao[contador] then maior:= posicao[contador]; if menor > posicao[contador] then menor:= posicao[contador]; end; writeln; writeln('O maior n£mero : ', maior); For contador := 1 to 20 do begin if maior=posicao[contador] then writeln('Na posiÆo: ',contador:2); end; writeln; writeln('O menor n£mero : ', menor); For contador := 1 to 20 do begin if menor=posicao[contador] then writeln('Na posiÆo: ',contador:2); end; Readkey; end.
Crivo de Eratóstenes Simples em Ada 95
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Calculadora Empresarial Lazarus
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
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
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (3)
Queria saber se existe alguma forma de desistalar programa no ubuntu s... (3)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (0)