Напечатать на экране N различных целых чисел из интервала [1..99], используя функцию Random. Помогите срочно плиз! На языке PaskalABC.NET через цикл for

надо подумать

Я дже не даром написал, что там не все так просто)))

это странно , 70 работает а 80 нет

Ничего странного, Вы неудачный алгоритм выбрали. Очень неудачный.

Сбылось!)))

const N = 99;var  i, j, t: integer;  flag: boolean;  mas: array[1..N]of integer;begin  randomize;  i := 0;  while i < N do   begin    t := Random(1, 99);    flag := true;    for j := 1 to i do      if t = mas[j] then begin        flag := false; Break      end;    if flag then begin      i := i + 1; mas[i] := t    end  end;  for i := 1 to N do write(mas[i], ' ')end.