Question

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

Answer 1

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.