Заполните массив случайными числами в интервале [0,1000] и выведите номера двух соседних элементов, произведение которых наибольшее.

Const n=10; var a: array[1..n]of integer; i,i_max: integer; max: real; p: real; begin randomize;         for i: =1 to n do             begin                   a[i]: =random(1001);                   write(a[i]: 4);             end; writeln; max: =a[1]*a[2];   i_max: =1;     for i: =2 to n-1 do         if a[i]*a[i+1]> max then               begin                   max: =a[i]*a[i+1];                   i_max: =i;               end; writeln(i_max,' ',i_max+1); end.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

 

 

сначала найдем производную первого порядка

производная из этой функции равна произведению самой функции и производной степени

y'==

теперь второго порядка

тот же принцип из той же функции только домножаем еще на 7/5

y''=