Question

Школьные Знания.com Какой у тебя вопрос? 1 - 4 классы Информатика 30+15 б В игре русское лото из мешка случайным образом выбираются бочонки,на каждом из которых написано число от 1 до 90.Напишите программу,которая выводит наугад первые 5 выигрышных номеров.Доработайте программу так,чтобы все 5 значений были гарантированно разными Выполнять в паскале abc

Answer 1

program HelloWorld;

const

 int 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.