ВХОДНЫЕ ДАННЫЕ
Дана последовательность натуральных чисел, в конце которой идет число 0.
ВЫХОДНЫЕ ДАННЫЕ
Определите, сколько элементов этой последовательности больше предыдущего. Числа, идущие за нулем, считывать не нужно.

Язык Python или Pascal

ВЫВОД 2

ну просто в строчку вводи

или переделать под столбик обязательно?

под столбик обязательно

ок

Вводить все равно как - сколько угодно в строках и сколько угодно в столбцах, смешивая столбцы и строки.

И да, если надо с нецелыми работать, вместо ReadSeqIntegerWhile просто указывается ReadSeqRealWhile

ans = 0

a, b = 1, -1

while b != 0:

   a, b = b, int(input().strip())

   if a < b and a != -1:

       ans += 1

print(ans)

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqIntegerWhile(t -> t <> 0).Incremental

     .Where(t -> t > 0).Count.Println

end.

6 -8 9 -8 -5 7 7 -5 9 2 -8 10 1 -3 2 4 -2 -1 -4 08