Безотлагательно дан массив из 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 kgt;max then max:=k;

k:=0;

end;

end;

if kgt;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 lt; 10 do begin
i+=1;
a[i]:=random(3);
write(a[i]:3);
end;
i:=0;
while i lt; 10 do begin
i+=1;
if a[i] = 0 then s+=1;
if ((a[i] lt;gt; 0) and (s gt; 0)) or (i = 10) then begin
c+=1;
b[c]:=s;
s:=0;
end;
i:=0;
writeln();
while b[i+1] gt; 0 do begin
write(b[i]:3);
end;
end;
end.