const MasSize= 20;
var A: Array[1..MasSize] of Integer;
i: integer; cur,res: integer;
begin
randomize;

{Инициализация массива случайными числами}
for i:= 1 to MasSize do begin
	A[i]:= random(20)- 10;
	write(A[i],' ');
	end;
	
writeln;

{Обработка}
for i:= 1 to MasSize do
	begin
	if A[i]> 0 then inc(cur) else cur:= 0;
	if cur> res then res:= cur;
	end;

{Вывод результата}
writeln(res);

readln
end.