Расставить ** экране 100 точек со случайными координатами X и Y ("звездное небо")....

Question

Расставить на экране 100 точек со случайными координатами X и Y ("звездное небо"). Координаты выбирать с помощью random.

Answer 1

uses GRAPHABC;
var i,x,y:integer;
begin
randomize;

for i:=1 to 100 do
begin
x:=random(640)+0;
y:=random(480)+0;
setpixel(x,y,clblack);

end;
readln
end.