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

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

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

program U15Z12;
var a: array [1..10] of integer;
    i,n,j,k: integer;
begin
  randomize();
  a[1]:=random(21);
  write(a[1], '|');
  j:=1;
  while (j<10) do
    begin
    n:=random(21);
    for i:=1 to j do
      if (n<>a[i]) then
        k:=1
      else
        begin
          k:=0;
          break;
        end;
    if (k=1) then
       begin
         j:=j+1;
         a[j]:=n;
         write(a[j],'|');
       end;
    end;
  readln();
end.