Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

program arr;

const b=40; / /можно задать другое число, которое больше 19.

var a:array [1 ... 20] of integer;

p, flag: integer;

begin

randomize;

for i: integer: = 1 to 20 do

begin

a[i]:=random (b) + 1;

if i > 1 then for j: integer:=1 to i - 1 do

if a[i] = a[j] then

begin

flag: = 0;

while flag = 0 do

begin

flag: = 1;

a[i]: = random (b) + 1;

for k: integer: = 1 to i - 1 do if a[i] = a[k] then

begin

p: = 0;

flag: = flag * p

end

end

end

end;

for k: integer: = 1 to 20 do writeln (a[k] : 3)

end.