Дан массив из n элементов. большенство элментов массива не равны нулю. найти максимальное колличество подряд идущих нулевых элементов. гарантируется что в массиве есть хотябы одна пара рядом стояих нулевых элементов. "решение должно представляться на алгоритмическом языке или любом языке программирования"

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

Язык паскаль любой хоть фри паскаль
program gg;
var
a: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.