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

Урок 15 задача 10

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

program U15Z10;
type
a=array[1..10]of integer;
function RandIntTwo():a;
var j,c,n:integer;
p:a;
 begin
    randomize();
    j:=0;
    c:=1;
    while (j<=10) do
    begin
      n:= random(20);
      for j:=low(p) to c do
      begin
        if (n = p[j]) then
          break;
        if (j=c)and(n<>p[j]) then
        begin
          p[j+1]:=n;
          c:=c+1;
          p[j]:=p[j+1];
        end;
      end;
    end;
 result:=p;
 end;
procedure ShowArray(p: a);
var j: integer;
begin
  for j := low(p) to high(p) do
    write(p[j], ' ');
  writeln();
end;
var arr:a;
begin
  arr := RandIntTwo();
  ShowArray(arr);
readln
end.