Kod: Zaznacz cały
program losowanie;
type
TTab=array[1..6] of real;
var
t1:TTab;
j,i,x,n: integer;
dobra:boolean;
begin
randomize;
writeln('Podaj z ilu liczb mam wylosować szóstkę: '); {z pominięciem tego, że może podać mniej niż 6}
readln(x);
i:=0;
j:=1;
repeat
n:=random(x)+1;
dobra:=true;
for j:=1 to i do
if n=t1[i] then dobra:=false;
if dobra then begin
i:=i+1;
t1[i]:=n;
write(' ', t1[i]:2:0);
end;
until i=6;
readln;
end.