Дан список чисел. определите, сколько в этом списке элементов, которые больше двух своих соседей и выведите количество таких элементов. входные данные вводится список чисел. все числа списка находятся на одной строке. выходные данные выведите ответ на . входные данные 1 2 3 4 5 выходные данные 0

# Код на ruby 2.2.3p173
def zadanie(line)
    a = []
    (line.split(" ")).to_a.each {|element| a << element.to_i}

    return 0 if a.size <= 2

    k = 0
    for i in 2..a.size - 2
        k = k + 1 if a[i-1] < a[i] and a[i+1] < a[i]
    end
    return k
end

# Примеры применения
p zadanie("1 2 3 4 5")
p zadanie("1 5 3 4 2")

N = int(input())

Speed_limit_car_count = 0

all_speed = 0

car_speed = []

i = 0

total = None

YN = None

def list_check(car_speed):

for i in range(len(car_speed)):

 if car_speed[i] in range(1, 300):

  normal = True

  continue

 else:

  normal = False

  break

return normal

if N not in range(1, 31):

print('Wrong input')

else:

while i < N:

 car_speed.append(float(input()))

 i += 1

normal = list_check(car_speed)

if normal:

 for i in range(len(car_speed)):

 

  if car_speed[i] <= 30:

   Speed_limit_car_count += 1

 for i in range(len(car_speed)):

  round(car_speed[i])

  all_speed += car_speed[i]

 total = all_speed/N

 if Speed_limit_car_count >= 2:

  YN = 'YES'

 else:

  YN = 'NO'

else:

 print('ERROR IN SPEEDLIST. CHEK INPUT!')

print(total, YN)

Программа протестирована. ctrl+c делать не стоит, сайт нарушает табуляции в коде.

var

   a: integer;

begin

   {1}

   readln(a);

   if a > 0 then a := a + 1;

   writeln(a);

   

   {2}

   readln(a);

   if a < 0 then a := a * 2;

   writeln(a);

   

   {3}

   readln(a);

   if a <> 0 then a := a - 4;

   writeln(a);

   

   {4}

   readln(a);

   if a > 0 then a := a + 1

   else a := a - 1;

   writeln(a);

   

   {5}

   readln(a);

   if a = 0 then a := a + 3

   else a := 0;

   writeln(a);

end.

{6}

var

   x, y: real;

begin

   readln(x, y);

   if x > y then x := x * y

   else x := x + y;

   writeln(x);

end.