Var
x, a, b: real;
begin
readln(x, a, b);
if x < 10 then
x := x + a
else if x > 23 then
x := x + a * a
else
x := x + b;
writeln(x);
end.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function bsearch(a:array of integer; x:integer):integer:=a.FindIndex(t->t<x);
begin
var P:=ArrRandom(ReadInteger('n='),-50,50).OrderByDescending(t->t).ToArray;
P.Println;
var x:=ReadInteger('x=');
var i:=bsearch(P,x)+1;
if i>0 then Writeln('Индекс первого элемента, меньшего x, равен ',i)
else Writeln('Все элементы больше х')
end.
<u>Пример</u>
n= 13
47 36 26 25 17 6 -8 -11 -23 -29 -31 -39 -39
x= -10
Индекс первого элемента, меньшего x, равен 8
program prim;
uses crt;
var
a,b,r: integer;
begin
clrscr;
writeln ('ввести два числа');
readln (a,b);
if a>b then
begin
r:=a-b;
end
else
begin
r:=b-a;
end;
writeln ('r=', r:5);
readkey;
end.
PROGRAM ThreeNumbers;
VAR
numberOne : DOUBLE;
numberTwo : DOUBLE;
numberThree : DOUBLE;
sum : DOUBLE;
product : DOUBLE;
average : DOUBLE;
BEGIN
WriteLn('Введите три числа:');
Write('Число 1 -->');
ReadLn(numberOne);
Write('Число 2 -->');
ReadLn(numberTwo);
Write('Число 3 -->');
ReadLn(numberThree);
sum := numberOne + numberTwo + numberThree;
product := numberOne * numberTwo * numberThree;
average := (numberOne + numberTwo + numberThree) / 3.0;
WriteLn('Сумма = ', sum:6:1);
WriteLn('Произведение = ', product:6:1);
WriteLn('Среднее = ', average:6:1);
END.
Ответ:
def process(array):
result = []
for i in range(1, len(array)-1):
if (array[i] < 0 and array[i-1] < 0) or \
(array[i] < 0 and array[i+1] < 0) or \
(array[i] > 0 and array[i-1] > 0) or \
(array[i] > 0 and array[i+1] > 0):
return 'YES'
return 'NO'
def main():
N = int(input())
assert N>=1 and N<= 10000
input_array = [int(i) for i in input().split()]
assert len(input_array) == N
print(process(input_array))
if __name__ == '__main__':
main()
Объяснение:
Протестировано на стандартном вводе/выводе + один доп тест
Доп тест:
<em>Ввод:</em>
<em>5
</em>
<em>1 2 -2 3 -4</em>
<em>Вывод:</em>
<em>YES</em>
P.S Сайт ломает Python-код. Ниже приложен скриншот исходного кода