. Определи сумму двух наибольших элементов массива arr.

Программа:

Pascal:

const arr: array[1..10] of integer = (-5, 2, 4, -6, 12, 10, -3, 12, 15, 2);

var max1, max2: integer;

begin

 max1 := arr.max;

 max2 := -MAXINT;

 for var i := 1 to 10 do

   if (arr[i] > max2) and (arr[i] <> max1) then max2 := arr[i];

 writeln(arr, #10, max1 + max2);

end.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу