uses crt; var n,i,j,m:longint; a:array[1..1000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); j:=i; while a[j]>0 do dec(j); if i-j>m then m:=i-j; end; writeln(m); readln end.
a:array[1..100] of intgẻ; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); j:=i; while a[j]>0 do dec(j); if i-j>m then m:=i-j; end; writeln(m); readln end.