ДАЮ 99 БАЛЛОВ!!Напишите программу на Паскале пожалуйста.Заполните одномерный массив с помощью датчика случайных чисел таким образом,чтобы все его элементы были различны(не используйте пожалуйста логарифмы и тд ,максимально простое оформление)

Т.е. с числами, большими 255, эта программа работать не будет.

Не будет.

Const n=20;var a:array[1..n] of integer;b,i,j:integer; t:boolean;beginRandomize;writeln;for i:=1 to n do begint:=false; while t=false do begin a[i]:=random(100)+1; t:=true; for j:=1 to i-1 do if a[i]=a[j] then t:=false; end;write(a[i]:4);end;end.

результат 85 100 91 43 88 27 2 40 97 81 29 95 58 24 28 84 8 12 67 6

const n=20;var a:array[1..n] of integer;b,i:integer;mn:set of byte;beginRandomize;a[1]:=random(100)+1;mn:=[a[1]];for i:=2 to n do  begin b:=random(100)+1; while b in mn do b:=random(100)+1; a[i]:=b; mn:=mn+[b]; write(a[i]:3); end;end.Пример: 48  4 91 38 69 71 75 50 46 73 33 10 60 98 42 77 83 15 76

Const n=20;var a:array[1..n] of integer;b,i,j:integer; t:boolean;beginRandomize;writeln;for i:=1 to n do begint:=false;         while t=false do begin         a[i]:=random(100)+1;         t:=true;                 for j:=1 to i-1 do                 if a[i]=a[j] then t:=false;end;write(a[i]:4);end;end.  85 100  91  43  88  27   2  40  97  81  29  95  58  24  28  84   8  12  67   6