encontrar o maior e o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 20.348 ]
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.
Calculadora de décimo terceiro salário em Pascal
Achar o maior e o menor valor inserido pelo usuario
vendas de uma empresa em matriz
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (1)
Dificuldade em ler binário (5)