Дан целочисленный массив из 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);