Pascal/Delphi Sortear 99 números e descobrir o menor deles

[Gleich]

Faça um programa que crie um vetor de inteiros de tamanho 20 e sorteie números de 0 a 99 para cada posição. Depois sorteie cada posição do vetor para descobrir o número menor. Mostre no console os valores do vetor e o menor deles.

[devair1010]

@Gleich      você pode fazer no compilador visualG , crie um vetor de inteiro e coloque um laço de repetição  indo de hum até vinte , e dentro do loop use a função randi (100) , para gerar os números de zero até 99 e coloque no vetor na posição indicada pela variável de controle do loop , depois use outro loop para imprimir os números e verificar qual é o maior ,  faça seu código e poste aqui para vermos como está e em que podemos ajudar   .

[Gleich]

@devair1010

Program Pzim ;
var
vetor : array[1..100] of integer;           // sorteando de 0 à 99 //
i , menor   : integer;
Begin
  for i:=1 to 20 do                              // tamanho 20 //
  vetor := random (100);                // array com os números   sorteados //
  
  
menor:=vetor[1];
for i:=1 to 20 do
begin
  if menor>vetor then
  menor:=vetor;                        // estabelecendo a operação de menor valor //
end;
writeln('Menor valor:',menor);

for i:=1 to 20 do
write(vetor, ' ')        // escrevendo os números sorteados //  
End.

[devair1010]

@Gleich @Gleich     seu código está bom , e com algumas modificações poderia ser assim  :

Program vetor ;
var
  vetor           : array[1..20] of integer;           // sorteando de 0 à 99 //
  i , menor,aux,j : integer;
Begin
  for i:=1 to 20 do                   // tamanho 20 //
  begin  
    vetor[i] := random (100);         // array com os números   sorteados //
    if i=1 then
      menor:=vetor[1];// inicializa o menor com o primeiro valor gerado
  end;
  for i:=1 to 19 do  // metodo qualquer de odenação de vetores
  begin
    for j:=i+1 to 20 do
    begin
      if vetor[i]>vetor[j] then
      begin
        aux:=vetor[i];
        vetor[i]:=vetor[j];
        vetor[j]:=aux;
      end;  
    end;
  end;
  writeln('Numeros Gerados Ordenados Crescente');
  writeln;// o menor é o que está no inicio do vetor
  textcolor(lightcyan);
  for i:=1 to 20 do
  begin
    if menor > vetor[i] then 
      menor:=vetor[i];          // estabelecendo a operação de menor valor
    write(vetor[i], ' ')        // escrevendo os números sorteados
  end;
  writeln;
  writeln;
  textcolor(yellow);
  writeln('Menor valor ---: ',menor);
  writeln;
  textcolor(lightred);
  textbackground(white);
  writeln('    Tecle  . . . !  ');
  readln;  // pausar o console até pressionar alguma tecla
End.

 

[Simon Viegas]

Em 02/06/2019 às 20:31, devair1010 disse:

seu código está bom , e com algumas modificações poderia ser assim  :

 

@devair1010, o código do @Gleich está correto. Acho que só precisa mudar a ordem das exibições, ou seja: primeiro lista os números, depois mostra o menor.

 

Peguei o código e apenas inseri os [i ] que sumiram (pois não usou a Box Code) e dei uma reorganizada, mas mantive a lógica.

program Pzim;
var
  vetor :array[1..100] of integer; //armazena os números sorteados
  menor :integer; //menor valor do vetor
  i     :integer; //variável auxiliar
begin
//sorteia os 20 números
for i:=1 to 20 do
  vetor[i] := Random(100); //sorteia um número entre 0 e 99
//atribui o primeiro como o menor
menor := vetor[1];
//compara os outros números para ver se acha um menor
for i:=2 to 20 do 
  //se o número atual for menor que o menor
  if vetor[i] < menor then
    //atualiza o menor
    menor := vetor[i];
//exibe o menor número
writeln('Menor valor: ',menor);
//exibe os números do vetor
for i:=1 to 20 do 
  write(vetor[i], ' ');
end.

obs.: @Gleich, falta ainda mudar a ordem... primeiro a lista, depois o menor.

 

 

@devair1010, em relação ao seu código temos:

1. a "inicialização do menor" pode (diria deve) ficar fora do laço;
2. para que ordenar o vetor? isso não foi solicitado;
3. se ordenou, e o menor está no início, não precisaria da variável menor, nem muito menos varrer o vetor (afinal o menor é o primeiro)

 

 

Adendo: Se esse:

 

Em 02/06/2019 às 16:26, Gleich disse:

sorteie cada posição do veto

 

por algum motivo signifique algo como "ordene o vetor", aí poderia ordenar o vetor com qualquer método de ordenação que ache interessante (como esse do @devair1010). E para exibir o menor, apenas exibia a primeira posição (ou a última, se tiver decrescente).

 

Falou