Question

9. Дан массив A(1..n), где n – нечётное чмсло. Если средний элемент массива больше следующего за ним элемента, то среднему элементу присвоить значение 1, если они равны, среднему элементу присвоить значение 0, иначе среднему элементу присвоить значение среднего арифметического последнего и предпоследнего элементов массива.

Answer 1

===== PascalABC.NET =====

№1

begin

 var n := ReadInteger;

 var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;

 a.Println;

 var ic := n div 2;

 if a[ic] > a[ic+1] then

   a[ic] := 1

 else if a[ic] = a[ic+1] then

   a[ic] := 0

 else

   a[ic] := (a[n-1] + a[n-2])/2;

 a.Println  

end.

№2

begin

 var (a, x) := ReadReal2('Введите а и х:');

 var y: real;

 if x < 0 then

   y := 2 + x

 else if x = 0 then

   y := 3 * a - 1

 else

   y := a + x;

 Print(y)

end.