encontrar o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 7.452 ]
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.
Editor de texto em Pascal/Lazarus
Cronômetro feito no Lazarus(Delphi 7 para Linux)
Calculadora completa com porcentagem(Lazarus)
encontrar o maior e o menor valor em um vetor
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Warcraft II Remastered no Linux? (4)
O programa assinador digital (5)









