Pascal

[daniil2010]

Дан массив из N целых чисел. Его значения- только нули и единицы. Найти номер элемента, с которого начинается самая длинная последовательность одинаковых чисел.

Вот пробовал кое-что составить, но всё равно не то, что нужно
можеть быть есть более правильный алгоритм?

program nomer2;

var
c: array of real;
N, k, m, d, l: integer;
y: integer;
i: byte;
r: real;

begin
write( 'vvedite N=');
read(N);
setlength(c, n);


Randomize;
for i := 1 to n - 1 do

begin
y := Random(2); //здесь заполняю массив 1 и 0
write('c[', i, ']=');
c[i] := y;
writeln(y);
end;





c[0] := c[1];
k := 0; l := 1; m := 1;
for i := 2 to n - 1 do
begin

if c[i - 1] = c[i ] then
begin

begin
l := l + 1; // если элементы равны, то работает счетчик
m := l; // это нужно для сравнения
d := l;
r := c[i + 1 - l ]; // вычисляется позиция эл-та с которого начинается последовательность
end;
end
else
begin

if m >= k then //после выхода из сравнения, смотрим на наибольшую последовательность.Если новая больше то её переписываем вместо старой //
k := m;
d := k;
m := 1;
l := 1;
writeln([i + 1 - d ] );
r := c[i + 1 - d ];



end;
end;

writeln(d, ' раз повторяется символ ', r);
readln;



writeln('l=', l);
writeln('k=', k);
writeln('с позиции', [i + 1 - d], c[i + 1 - d] );

end.

[vedro-compota]

напиши комментарии в коде) а то не только придумывать- как лучше приходиться ,но ещё и пытаться понять твою идею , а это тоже время))

[ОДИНОЧЕСТВО В СЕТИ]

var
  i,k:integer;
  m,j:integer;
    s:string;
begin
  {s:='00000000111111111110111111111010101010111111111100010';}
readln(s);
Writeln(s);
s:=s+' ';
  k:=1;m:=1;j:=1;
  for i := 2 to Length(s) do
    if s[i]=s[i-1] then  inc(k)
      else
        if s[i]<>s[i-1] then
          begin
            if k>=m then
              begin
                m:=k;
                j:=i-k;
              end;
            k:=1;
            end;
  writeln('pos=',j:4);
  readln;
end.

[Serge_Bliznykov]

Одиночество, позвольте маленькое замечание...

в решении, к сожалению, присутствует
традиционная для подобных алгоритмов ошибка -
конечная последовательность не проверяется...

попробуйте, например, на:

s:='00110111111';