Урок 15. Задача 13.

Урок 15. Задача 13.

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

type newArr = array [1..10] of integer;
var i, a, b : integer;
    Arr : newArr;
    fl : boolean;
begin
  fl := false;
  randomize;
  b := 1;
  while b < 10 do
  begin
    a := random(20) + 1;
    for i := 1 to b do
      if Arr[i] = a then // проверка на уникальность
      begin
        fl := true;
        break;
      end;

    if not fl then // допуск к записи числа
    begin
      b := b + 1; // счетчик цикла while
      Arr[b] := a; // добавление символа по индексу
    end;
    fl := false;
  end;

  for i := low(Arr) to high(Arr) do // вывод массива
    write(Arr[i], ' ');
  readln();
end.