Урок 15 (Решенная задача 10)

Урок 15(Решенная задача 10)

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

var a: array[1..10] of integer;
    i, c : integer;
begin
 randomize();
 for i := 1 to 10 do
 begin
   a[i] := random(21);
 end;
   while (c <> 10) do
     begin
      for i:= 1 to 10 do
       if (a[c] = a[i]) and (c <> i) then
          begin
            a[i] := random(21);
            c := 1;
          end;
     c := c + 1;
     end;
 writeln();
 for i := 1 to 10 do
  writeln(a[i]);
end.