Задача 12 Урок 15

Урок 15

Напишите программу, которая будет заполнять массив из 10 элементов
случайными числами из диапазона от 0 до 20, при этом в полученном массиве
не должно быть одинаковых значений.

type
  myArr = array[1..10] of integer;

  var i, k: integer;
      a: myArr;

begin
  randomize();
  for i := low(a) to high(a) do // наполняем и выводим в консоль
  begin
    a[i] := random(21);
      k := low(a);
      while (k < i) do
      begin
        if (a[i] = a[k]) then
        begin
          a[i] := random(21);
          k := low(a);
        end;
        inc(k);
      end;
    Write(a[i], ' ');
  end;
  writeln();
  readln();
end.

КОНСОЛЬ

15 2 8 0 4 10 17 9 14 7