одномерный масив(серии)

[prelest']

задача: Дано целое число L (>0) и целочисленный массив размера N. Заменить каждую серию массива, длина которой больше L, на один элемент с нулевым значением (Назовем серией группу подряд идущих одинаковых элементов, а длиной серии количество этих элементов (длина серии может быть равна 1)).

Program Pr_3_Mas;
Var a:array [1..100] of Integer;
i,L,n,ser,g:integer;
Begin
 WRITELN ('Ввод размера массива');
  READLN (n);
 WRITELN ('Ввод числа для определения');
  READLN (L);
RANDOMIZE;
 for i:=1 to n do
  BEGIN
  a[i]:=1+Random(10);
  WRITE (a[i],' ');
  END;
  ser:=1;
 For i:=1 to n do
  BEGIN
   if a[i]=a[i+1] then
     ser:=ser+1
    ELSE
    ser:=1;
   If (ser > L)then
    BEGIN
     for  g:=i+1 downto (i+1)-(L-1) do
      a[g]:=0;
           n:=n-1;
     For g:=1 to n do
      If a[g]=0 then
       a[g]:=a[g+1];
    END;
  END;
  writeln;
  For i:=1 to n do
  WRITE (A[I],' ');
End.

помогите пожалуйста правильно ее сделать...не работает(

[prelest']

уважаемые программисты посмотрите пожалуйста, эта задача в отчете последняя

[prelest']

ну чего вы?помогите

[prelest']

SOS!!Help me

[Alex11223]

 If (ser > L)then

и далее (не смотрел дальше) должно быть в else (который выше, в цикле for), перед ser:=1;, а не за ним.

[Абай]

Привет всем, prelest' у меня такая же проблема с этой задачей, если вы решили отпишетесь пожалуйста.

[prelest']

var a : array[1..100] of integer;
i,l,n,ser,g,k,nach,kon:integer;
BEGIN
writeln('vvod razmera massiva')     ;
readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=1+random(10);
write (a[i],' ');
end;
writeln;
writeln('vvod chisla L')     ;
readln(L);
ser:=1; k:=0;
for i:=1 to n-1 do
 begin
 if a[i]=a[i+1] then  ser:=ser+1 else ser:=1;
 if ser>L then
     begin
     for g:=i downto i-l+1 do a[g]:=0;
     for g:=i+1 to n-1 do  a[g]:=a[g+1]; 
     a[n]:=0; k:=1+k;
     end;
   end;
  writeln; 
  for i:=1 to n-k do write(a[i],' ');
  writeln;
END.

вот правельное решение

[Serge_Bliznykov]

вот правельное решение

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

попробуйте задать такой массив:
2 2 3 4 4
L = 1
у Вас будет результат:
0 3

концевой нолик потерян...

p.s. код для задания подобного массива

{первый и второй элементы сделаем одинаковые}
a[1] := a[2];
{последний и предпоследний тоже одинаковые}
a[n]:=a[n-1];

ну и ещё. попробуйте задать последовательность из одной циферки (т.е. весь массив будет состоять из одной последовательности длиной N), например:
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
что будет в результате работы программы?...

[Абай]

СПАСИБО БОЛЬШОЕ!!!!!