Расставить на экране 100 точек со случайными координатами X и Y ("звездное небо"). Координаты выбирать с помощью random.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
