Question

В игре русское лото из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90.Напишите программу, которая выводит наугад первые 5 выигрышных номеров. Доработайте программу так, чтобы все 5 значений были гарантированно разными
Выполнять в паскале a b c ОЧЕНЬ НАДО!!!

Answer 1

const

 n = 5;

var

 i, j, k: integer;

 a: array[1..n] of integer;

 p: boolean;

begin

 randomize;

 for i := 1 to n do

   repeat

     k := random(90) + 1;

     j := 1;

     p := True;

     while p and (j < i) do

       if a[j] = k then

         p := False

       else

         j := j + 1;

     if p then    

       a[i] := k;

   until p = True;  

 for i := 1 to n do

   write(a[i], ' ');

end.