ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ АВСвывести ** экран 10 случайных чисел из...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ АВС
вывести на экран 10 случайных чисел из диапазона от 1 до 9 (включительно)

Answer 1

Program qq;
var a,i:integer;
begin
for i:=1 to 10 do 
 begin
  a:=random(9)+1;
 writeln(a);
 end;
end.

Comments

нужно чтобы числа не повторялись

---

program qq;
var a,i:integer;
begin
for i:=1 to 10 do
begin
a:=random(9)+1;
writeln(a);
end;
end.

---

повторяются