encontrar o maior e o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 20.698 ]
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.
Achar o maior e o menor valor inserido pelo usuario
Números primos (usando arrays)
Calculadora completa com porcentagem(Lazarus)
Função Fatorial Recursiva em Ada 95
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Autenticação necessária. um aplicativo quer acesso ao chaveiro "c... (0)
Atalhos duplicados (sobras de instalações anteriores) (0)
Copiar Layout do Teclado para aplicar em outra Distribuição (9)