Дайте відповідь на 3 питання

37

Объяснение:

В массиве n + 1 элемент (n = 10),

цикл выполняется n раз

В цикле переменная s увеличивается на A[i] - A[i+1] + 2

Прибавка на 2 даст суммарную прибавку 20, а вот прибавка элементов получится такая, все элементы кроме первого и последнего сложатся сначала со знаком "-", потом "+", и они будут равны 0, останется только A[0] - A[n]

Поскольку массив - возрастает, то эта прибавка - отрицательная, нам нужно сделать её как можно больше.

Для этого нужно, чтобы элементы массива отличались на 1,

например, 0, 1, 2, 3, ..., n

Тогда A[0] - A[n] = -n, т.е. -10

27 + 20 - 10 = 37

const

 n = 25;

 

var

 a: array[1..n] of integer;

 k0, k, i, s: integer;

 p: real;

 

begin

 s := 0;

 p := 1;

 k := 0;

 k0 := 0;

 for i := 1 to n do

 begin

   a[i] := -n div 2 + random(n);

   Write(a[i]:4);

   if a[i] = 0 then

     inc(k0);

   if a[i] > 0 then

     s := s + a[i];

   if a[i] < 0 then

   begin

     p := p * a[i];

     inc(k);

   end;

 end;

 WriteLn;

 Writeln('Сумма: ', s);

 Writeln('Количество 0: ', k0);

 if k <> 0 then

   Writeln('Произведение: ', p)

 else

   Writeln('Нет таких чисел. ')

end.

Объяснение: