encontrar o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 7.392 ]
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.
diferença entre o maior e o menor numero
controle de notas de um aluno com registro e array
Nenhum coment�rio foi encontrado.
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Customizar a Instalação do Linux Debian com Preseed
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Preciso de opiniões sobre meus programas (3)
criar alias do comando "ls -la" (14)