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

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

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

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

var
  a: myArr1;
  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;

  write('Числа массива : ');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln;

  write('Программа завершила свою работу');
  readln();readln();
end.