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

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

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

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

var
  a: myArr;
  min, max, i, j  : integer;

begin
  randomize();
  min := 1;
  max := 20;
  i := 1;
  while i <= high(a) do
  begin
    a[i] := min + random(max - min + 1);
    for j := i downto 1 do
        if a[i] = a[j-1] then
          i -= 1;
    i += 1;
  end;

  writeln('the original numbers:');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln;

  write('End');
  readln();
end.       

Вывод консоли:

the original numbers:
3 6 12 7 16 1 11 13 15 10
End