Напечатать ** экране N различных целых чисел из интервала [1..99], используя функцию...

Question

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

Comments

На паскаль

---

Через 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.

Answer 2

Ну держи с функцией Random.

ЗАДАЧА Random(): ЦЕЛ;
УКАЗ
  ВОЗВРАТ УЗК(ВШИРЦЕЛ(Матем.случ() * 98)) + 1
КОН Random;

ОТ сч := 1 ДО N ВЫП
  Вывод.ЧЦел("%d ", Random(), 0, 0, 0)
КОН

Comments

Не то

---

Программа PaskalABC.NET

---

ЧереЗ for

---

Мдаа