Postagens
Male
Olá,
Gostaria de uma ajuda num projeto. To tentando criar um conjunto com números inseridos pelo usuário e queria q o programa escolhesse aleatoriamente esses números inseridos e exibisse eles na ordem em que foram escolhidos.
Já escrevi parte do programa. A dificuldade ta sendo a escolha aleatória. Se alguém puder me ajudar agradeço desde já.
Aqui até onde escrevi o programa:
Program Escolha_Dezenas ;
var vetor : array[1..25] of integer;
var esp_amo, linha, coluna, i: integer;
// Inserindo as dezenas.
Begin
linha :=4;
coluna :=27;
i :=1;
clrscr;
write ('Digite o Espaço Amostral:');
read (esp_amo);
clrscr;
gotoxy (27,1);
writeln ('Espaço Amostral: ',esp_amo);
gotoxy (27,3);
writeln ('Dezenas:');
repeat
gotoxy (1,i);
write ('Digite uma Dezena:');
read (vetor[i]);
gotoxy (coluna,linha);
writeln (vetor[i]);
coluna := coluna+3;
i := i+1;
esp_amo := esp_amo - 1;
until esp_amo = 0;
// Sorteando as dezenas.
End.
