z12052K24

program SorteioLoteria;

uses SysUtils, Math;

const
NUM_DEZENAS = 5;
LIMITE_DEZENA = 60;

var i, j: Integer;
grupo: array[1..NUM_DEZENAS] of Integer;
numeros: array[1..LIMITE_DEZENA] of Boolean;

begin
Randomize;
for i := 1 to LIMITE_DEZENA do
numeros[i] := True;

for i := 1 to NUM_DEZENAS do
begin
repeat grupo[i] := Random(LIMITE_DEZENA) + 1;
until numeros[grupo[i]];
numeros[grupo[i]] := False;
end;

WriteLn('Grupo sorteado:');
for i := 1 to NUM_DEZENAS do
Write(grupo[i]:2, ' ');
WriteLn;
end.

Gerado pelo ChatGPT

program SorteioDezenas;

var
  dezenasSorteadas: array[1..5] of integer;
  i, j: integer;

begin
  // Inicializa o gerador de números aleatórios
  randomize;
  
  // Loop para gerar cinco grupos de dezenas
  for i := 1 to 5 do
  begin
    writeln('Grupo ', i, ':');
    
    // Loop para gerar uma dezena em cada grupo
    for j := 1 to 5 do
    begin
      // Gera um número aleatório entre 1 e 60
      dezenasSorteadas[j] := random(60) + 1;
      
      // Garante que não haja repetição de dezenas no mesmo grupo
      while dezenasSorteadas[j] in dezenasSorteadas[1..j-1] do
        dezenasSorteadas[j] := random(60) + 1;
      
      // Imprime a dezena sorteada
      write(dezenasSorteadas[j]:2, ' ');
    end;
    
    writeln;
  end;
end.

Explicação do código:

1. Definimos as constantes NUM_DEZENAS (número de dezenas por grupo) e LIMITE_DEZENA (limite superior das dezenas).
2. Declaramos os arrays grupo (para armazenar as dezenas sorteadas) e numeros (para marcar as dezenas já sorteadas).
3. Inicializamos a semente do gerador de números aleatórios com Randomize.
4. Marcamos todas as dezenas como disponíveis (True) no array numeros.
5. Sorteamos NUM_DEZENAS dezenas únicas:
   Repetimos o sorteio de uma dezena até que seja uma dezena ainda não sorteada.
   Marcamos a dezena sorteada como indisponível (False) no array numeros.
6. Exibimos o grupo sorteado.

Ao executar o programa, ele irá sortear um grupo de 5 dezenas únicas de 1 a 60 e exibi-las na tela.