8. Измените программу из примера 3.24 так, чтобы окружности рисовались разными цветами.

Для выполнения задачи воспользуемся процедурой SetPenColor() и случайным цветом clRandom. Задавать случайный цвет будем в цикле, чтобы каждый круг имел разный цвет обводки.

uses graphABC;
var X, Y, R: array[1..100]
  of integer;
  n: integer;
begin
  SetWindowSize(400, 400);
  writeln('Введите количество чисел в массиве');
  readln(n);
  writeln(n);
  for var i := 1 to n do
  begin
    X[i]:= random(100, 300);
    Y[i]:= random(100, 300);
    R[i]:= random(5, 100);
  end;
  SetBrushStyle(bsClear);
  for var i := 1 to n do
    begin
    SetPenColor(clRandom);
    circle(X[i], Y[i], R[i]);
    end;
end.
Другие задания