Question

Паскаль помогите плезз срочно даю 35 баллов
A. Количество чисел в последовательности
0
Имя входного файла
стандартный ввод
Имя выходного файла
стандартный вывод
Ограничение по времени
2 секунды
Ограничение по памяти
64 мегабайта
Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти количество чисел в этой последовательности. Ноль числом последовательности не считается.

Формат входных данных
Вводится не более, чем 215 целых чисел, каждое из которых не превосходит по модулю (215−1). После последнего числа вводится 0.
Формат выходных данных
Требуется вывести одно число — количество чисел в последовательности.

Answer 1

if ((mas[j]>0) and (mas[j+1]<0)) or ((mas[j]<0) and (mas[j+1]>0)) then
Знак поменялся