Перейти к содержанию

Элементы массива могут принимать целые значения от −20 до 20, отличные от 0

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от −20 до 20, отличные от 0. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наибольшее количество идущих подряд элементов одного знака. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но использовать все описанные переменные не обязательно.

В качестве ответа необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например PascalABC 1.8). В этом случае вы должны использовать переменные, аналогичные переменным, используемым в алгоритме, с учётом синтаксиса и особенностей используемого вами языка программирования.


Пример фрагмента программы на языке Паскаль.

k:=0; max:=0;

repeat

for i := 1 to N-1 do

if (a[i]*a[i+1]>0) then

k:=k+1

else

if k>max then begin

max:=k; k:=0;

end;

if k>max then max:=k;

writeln(max);