const k = 100;
var m: array[1..k] of integer;
i, kol: integer;
begin
randomize;
kol := 0;
for i := 1 to k do
begin
m[i] := random(3) - 2;
write(m[i]:2);
end;
for i := 1 to 98 do
begin
if (m[i] = 0) and (m[i+1] = 0) then
kol := kol + 1;
end;
writeln;
writeln('Два подряд идущих нулевых элемента: ', kol, ' ');
readln;
end.
made in ohio! const k = 100;
var m: array[1..k] of integer;
i, kol: integer;
begin
randomize;
kol := 0;
i := 1;
while kol < 10 do // вот твой святой while
begin
m[i] := random(3) - 2;
write(m[i]:2);
if m[i] = 0 then
kol := kol + 1;
i := i + 1;
end;
writeln;
writeln('Два подряд идущих нулевых элемента: ', kol, ' ');
readln;
end.