3 Задачи.Delphi 7

[Манжосов Денис :)]

всегда какое-то число повторяется((((((((

Посмотрел на это и решил, что просто не работает рандомизация.

procedure Recu(var b: integer; n: integer);
var
  j: integer;
begin
b := Random(100);
 for j := 1 to n do
  if x = a[j] then Recu(n, b);
end;
begin
for i := 1 to 20 do
 a[i] := Recu(a[i], i);
end.

Ну вот так тогда можно решить.

[ОДИНОЧЕСТВО В СЕТИ]

а вот мой вариант

const val=20;
type vector = array[1..100] of Integer;
var  
        a:vector;
  j,i,n,k:Integer;
        f:Boolean;

begin
  Randomize;
  n:=1;
  for i:=1 to val  do
    a[i]:=val*3;
  for i:=1 to 20 do
    begin
      repeat
        f:=False;
        k:=Random(val);
        for j:=1 to n do
          if k=a[j] then
            begin
              f:=True;
              Break;
            end;
      until not f;
      a[i]:=k;
      n:=n+1;
      write(a[i]:3);
    end;
 readln;
end.