Дан массив из 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.