encontrar o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 7.435 ]
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.
cadastro de um cliente com registro
Calculadora Completa feita no Lazarus(Delphi 7 para Linux)
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como vencer a procrastinação? (2)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (7)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (9)