Побудувати графік функції y=x3+bx2+cx+d. підібрати три набори параметрів b, c, d, за яких графік цієї функції тільки один раз перетинає вісь ox, два рази перетинає вісь ox та три рази перетинає вісь ox. зобразити ескізи трьох графіків і вказати відповідні значення параметрів для них.

Var       a: array[0..10] of integer;       i, n, k: integer; begin       for i : = 0 to 10 do               a[i] : = i + 1;       for i : = 0 to 10 do       begin               a[i] : = a[10 - i];               println(a);       end; end. трасировка а [11,2,3,4,5,6,7,8,9,10,11] [11,10,3,4,5,6,7,8,9,10,11] [11,10,9,4,5,6,7,8,9,10,11] [11,10,9,8,5,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] ответ 3

//pascal //заполнение массива случайными числами var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); randomize; //в pascalabc.net можно убрать for i : = 1 to n do begin   a[i] : = random(21)-10; //случайные числа от -10 до 10   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i];   write(a[i], ' '); end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.  //pascal //заполнение массива с клавиатуры var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); for i : = 1 to n do begin   write('a[', i, '] = '); readln(a[i]);   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i]; end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.