9. дан массив a(1..n), где n – нечётное чмсло. если средний элемент массива больше следующего за ним элемента, то среднему элементу присвоить значение 1, если они равны, среднему элементу присвоить значение 0, иначе среднему элементу присвоить значение среднего арифметического последнего и предпоследнего элементов массива.
===== 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.