encontrar o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 7.210 ]
script em pascal com objetivo de apenas receber os dados para preencher um vetor e após isso localizar o meno numero informado e dizer em que posição foi informado.
Program exercicio04; uses crt; Var posicao : array[1..15] of integer; numero, contador : integer; Begin clrscr; For contador := 1 To 15 do begin write('Digite o ',contador:2,'§ n£mero: '); readln (posicao[contador]); end; numero:= posicao[1]; For contador := 2 to 15 do begin if numero > posicao[contador] then numero:= posicao[contador]; end; writeln; writeln('O menor n£mero : ', numero); writeln; For contador := 1 to 15 do begin if numero=posicao[contador] then writeln('Na posiÆo: ',contador:2); end; Readkey; end.
Exemplo de for que mostra 6 números em ordem crescente
Coleta de dados de alunos em Pascal
Crivo de Eratóstenes Simples em Ada 95
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 e usando o Dconf Editor, o "regedit" para Linux
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Remover por completo uma DE (5)
Encriptografa... as particoes com LUKS, o que poderia dar errado? (0)
Qual a relevancia dos valores de bogomips com os Mhz e Ghz[DUVIDA] (2)