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.

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.