# Код на 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")
Если он пришёл в автостанцию озёрное и хочет отправиться в луговое, ещё одна самая близкая автрстанция к нему это автостанция "Красное" . Отсюда он может выехать в луговое в 9:20 и приехать в 10:30. А если выехать из Заречное то до призода автобус уже уедит.
var p:integer;
begin
readln (p);
if (p=2)then writeln ('-1') else
writeln ((p*p-1)/2+1);
end.
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write('Alphaeus asks: please enter n = ');
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.
//PascalABC.NET 3.4.2
begin
var ar := arrrandom(20, 100, 1000);
ar.Println.Take(10).Sum.Println;
ar.TakeLast(10).Sum.Println;
end.