Question

Помогите пожулайста!!!!!! Надов программе вывести числа рандомно от 1 до 100

Answer 1

const St=1; En=100;

var

a:array[St..En] of boolean;

i,q,n:integer;

begin

Randomize;

for i:=St to En do

a[i]:=false;

i:=0;

q:=En-St+1;

while i<Q do begin

n:=St+Random(En);

if not(a[n])

then begin writeln(n);

inc(i);

end;

end;

end.