Нахождение серии в массиве

[akialex]

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

Из-за болезни пропустил часть материала, вот теперь не могу справиться с задачей, а нужно срочно. Заранее спасибо откликнувшимся

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

Помогите, пожалуйста,

язык то укажи

На Паскале

ну и попытки сделать задачу выложи

[akialex]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

язык то укажи

На Паскале.

[akialex]

int a[size] = {1, 6, 6, 2, 6, 6, 6, 6, 6, 3};

int i, done;

main()
{

clrscr();

printf("\n\nValues:");
for(i = 0; i < size; i++)
printf("%d ", a[i]);

printf("\n");
done = 1;

for(i = 0; i < size - 1; i++) {
if(a[i] == a[i+1])
done++;
if(a[i] == a[i+1] && a[i+1] != a[i+2]) {
printf("%d ", done);
done = 1;
i++;
}

else

if(a[i] != a[i+1])
printf("%d ", done);
}


if(a[size - 1] != a[size - 2])
printf("1");


getch();
}

На C++ пытался. Так как его знаю получше, а с Паскалем мало знаком...

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

var
   a:array [1..10] of integer=(1,1,1,0,2,2,2,2,9,9);
   b:array[1..10] of integer;
   k,i,count:integer;
begin
  k:=0;
  count:=1;
  for i:=2 to 10 do begin
   if a[i]=a[i-1] then inc(count)
   else begin
    inc(k);
   b[k]:=count;
   count:=1;end;end;
   b[k+1]:=count;
   for i:=1 to k+1 do
   write (b[i]:3);
   readln;
   end;

[akialex]

Огромное спасибо за сверхоперативную помощь. Даже и не ожидал =)