Выполните для примера 18.3. 1. выполните программу несколько раз. уберите прозрачную заливку. объясните, почему некоторые окружности не видны. 2. внесите в программу такие изменения, чтобы можно было изобразить 20 кругов; 100 кругов. 3. какой максимальный размер может иметь радиус круга в
программе? внесите в программу изменения так, чтобы рисовались круги с радиу- сом не более 20. количество кругов установите равным 10 000. 4. внесите изменения в программу так, чтобы пользователь мог вводить количество отображаемых на экране кругов. пример 18.3. v. программа: uses graphabc;
var x,y,r: integer; begin setpenwidth(3); setbrushstyle(bsclear); for var i: = 1 to 10 do begin x : = random(600); y : = random(400); r : = random(150); setpencolor(clrandom); circle(x,y,r); end; end.

//pascalabc.net 3.0, сборка 1064 const   nn=50; var   a: array[1..nn] of integer;   i,n,imin: integer; begin   write('введите количество элементов в массиве: '); read(n);   randomize;   writeln('исходный массив');   imin: =1;   for i: =1 to n do begin       a[i]: =random(51)-25;       write(a[i],' ');       if a[i]< a[imin] then imin: =i;   end;   writeln;   for i: =imin to n-1 do a[i]: =a[i+1];   writeln('массив-результат');   for i: =1 to n-1 do write(a[i],' '); writeln end. тестовое решение: введите количество элементов в массиве: 15 исходный массив 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2 массив-результат 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2 а это версия для тех, кто думает, что паскалю пора давно "на свалку": //pascalabc.net 3.0, сборка 1064 begin   var n: =readinteger('введите количество элементов в массиве');   var a: =seqrandom(n,-25,25).toarray();   writeln('исходный массив: ',#13#10,a);   writeln('результат: ',#13#10,a.where(x-> x< > a.min)); end. тестовое решение: введите количество элементов в массиве 15 исходный массив: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15] результат: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15] можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на java, в предыдущем ответе.

//javaimport java.util.arraylist; class main { public static void main(string[] args) { arraylist< integer> a = new arraylist(); /**   * заполнение   */ for (int i = 0; i < 50; i++) a.add(i, new java.util.(100)); /**  * пузырь  */ for (int i = 0; i < 50; i++) for (int j = 0; j < 50-i-1; j++) if (a.get(j) > a.get(j+1)){ int b = a.get(j); a.set(j, j+1); a.set(j+1, b); } for (int i = 0; i < 50; i++) system.out.print(a.get(i) + " "); system.out.println(""); /**   * удаляем   */ a.remove(0); for (int i = 0; i < 50-1; i++) system.out.print(a.get(i) + " "); }} проверка: 1 2 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 982 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 98так как использовался, само расширяющийся массив, то при удалении, ничего сдвигать не нужно