Question

составить программу десяти прямоугольников, размеры, цвет и место расположения которых выбирают случайным образом . результат работы программы может быть такой, как показано на рисунке 3.30​

Answer 1

Ответ:

uses graphABC;

begin

for i:integer:=1 to 10 do

begin

SetBrushColor(clrandom);

rectangle(random(641),random(481),random(641),random(481))

end

end.