Модуль: Pascal. Практикум - 3: Операторы цикла "Несколько фактов о Гарри Поттере"


5. Зима в Хогвартсе

Уставшие от необычно теплой зимы, жители Хогвартса решили узнать, действительно ли это самая длинная оттепель за всю историю наблюдений за погодой. Они обратились к синоптикам, а те, в свою очередь, занялись исследованиями статистики за прошлые годы. Их интересует, сколько дней длилась самая длинная оттепель.

Оттепелью они называют период, в который среднесуточная температура ежедневно превышала 0 градусов Цельсия.
Напишите программу, помогающую синоптикам в работе.

Входные данные 
В первой строке вводится число N – общее количество рассматриваемых дней (\(1 <= N <= 100\)).
В следующих N строках задается по одному целому числу. Каждое число – среднесуточная температура в соответствующий день. Температуры – целые числа, принадлежащие диапазону от –50 до 50.

Выходные данные
Требуется вывести одно число – длину самой продолжительной оттепели, то есть наибольшее количество последовательных дней, на протяжении которых среднесуточная температура превышала 0 градусов. Если температура в каждый из дней была неположительной, выведите 0.


 

Примеры
Входные данные Выходные данные Пояснения
1 6
-20
30
-40
50
10
-10
 
2 Рассматриваются 6 дней. Самая продолжительная оттепель была на 4-й и 5-й день (50 и 10 градусов соответственно)
2 8
10
20
30
1
-10
1
2
3
 
4 Самая продолжительная оттепель была в первые 4 дня
3 5
-10
0
-10
0
-10
0 Дней с положительной температурой не было

Напишите программу
Auto
       

time 1000 ms
memory 256 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
 Кол-во
С++ Mingw-w64438
Free Pascal6
Java2
Python877
PascalABC1
Комментарий учителя