10 DEFINT N,I,M,K:INPUT N:DIM A(N):X=RND(-TIME) 20 FOR I=1 TO N:A(I)=INT(2*RND(1)):PRINT A(I);:NEXT 40 FOR I=1 TO N 50 IF A(I)=0 THEN K=K+1:IF K>M THEN M=K:NEXT I ELSE NEXT I ELSE K=0:NEXT I 60 PRINT:PRINT"Максимальная длина:";M