как задать рандомные координаты, помогите лузеру Опции

[ewer]

Подскажите пожалуста, как сделать так, чтобы координаты точек на плоскости задавались сами рандомно в рандомном количестве (от 10 до 30) в целых значениях. ( y от 0 до 100 , x от 0 до 100 ). Спасибо

[volvo]

так, чтобы координаты точек на плоскости задавались сами рандомно в рандомном количестве (от 10 до 30) в целых значениях. ( y от 0 до 100 , x от 0 до 100 ).

Я бы делал так:

Var a: array[1 .. 30, 1 .. 2] of integer;
...
randomize;
n := random(21) + 10;
For i := 1 to n Do
  for j := 1 to 2 do a[i, j] := random(101);

Это еще без проверки на генерацию одинаковых точек...