СРОЧНО дан массив из N элементов. большенство элментов массива не равны нулю. найти максимальное колличество подряд идущих нулевых элементов. гарантируется что в массиве есть хотябы одна пара рядом стояих нулевых элементов. "решение должно представляться на алгоритмическом языке или любом языке программирования"

язык паскаль любой хоть фри паскальprogram gg;vara:array[1..100] of integer;b:array[1..100] of integer;i,s,c:integer;begin while i < 10 do begin i+=1; a[i]:=random(3); write(a[i]:3); end; i:=0; while i < 10 do begin i+=1; if a[i] = 0 then s+=1; if ((a[i] <> 0) and (s > 0)) or (i = 10) then begin c+=1; b[c]:=s; s:=0; end; i:=0; writeln(); while b[i+1] > 0 do begin write(b[i]:3); end; end;end.

const n=10;

var

a:array[1..n] of integer;

i,k,max:integer;

begin

for i:=1 to n do

begin

a[i]:=random(3);

write(a[i]:3);

end;

writeln;

k:=0; max:=0;

for i:=1 to n do

begin

if a[i] = 0 then k:=k+1

else begin

if k>max then max:=k;

k:=0;

end;

end;

if k>max then max:=k;

writeln(max);

end.

Пример:

0 1 0 0 0 1 0 1 1 2

3