Дана функция fi(x)= 3x2 + 2cosx. Протабулируйте данную функцию на промежутке [-3; 3] с шагом h = 0.3. Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.

program Prog;

var

i: Integer;

x: Double;

MinF: Double;

MinFArg: Double;

function f(x:Double): Double;

begin

f:=3*x*x+2*cos(x*pi/180);

end;

begin

x:=-3;

MinF:=f(x);

while x<3 do begin

 if f(x)<MinF then begin

  MinF:=f(x);

  MinFArg:=x;

 end;

 x+=0.3

end;

write('Минимальное значение функции: ');

writeln(Round(MinF));

write('Значение аргумента: ');

writeln(Round(MinFArg));

end.

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.