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

Составим алгоритм отбора чисел, удовлетворяющих условию . в "списке" выделяются пары соседних элементов и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. если превышает, второй элемент значение второго элемента передается на выход. для списка из n элементов процесс повторятся n-1 раз. в условии есть один неприятный момент. количество элементов в списке нигде не указано. пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими списками, а вот pascalabc.net 3.3 может, поэтому используем его. // pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   readlnstring.tointegers.pairwise.where(t-> t[1]> t[0]).select(t-> t[1]).println end. результат 1 5 2 4 3 5 4

Const n=10; var a: array[1..n] of integer;     i: integer; begin   randomize;   writeln('список: ');   for i: =1 to n do    begin     a[i]: =random(-20,20);     write(a[i],' ');   end;     writeln;   for i: =2 to n do      if a[i]> a[i-1] then write(a[i]: 4); end.список: -20 -20 -14 -18 20 12 -2 -6 -13 15    -14   20   15если ввод с клавиатуры: var a: array of integer;     i,n: integer; begin   write('n = ');   readln(n);   setlength(a,n+1);   for i: =1 to n do read(a[i]);   for i: =2 to n do    if a[i]> a[i-1] then write(a[i],' '); end.

x = int(

print(

    *map(

        str,

        list(range(1, x)) + list(range(x, 0, -1))

    )

)