Задача с массивами

[my_blood_is_blue]

Найти номер строки заданной целочисленной матрицы 10×10, в которой находится самая длинная серия.

[Hacker19_90]

в которой находится самая длинная серия.

что за серия?

[my_blood_is_blue]

ну одна и таже цифра повторяется

[Mad_Cat]

что за серия?

Последняя Санта -Барбары!

одна и таже цифра

может все таки число?
Язык ?

Дельфи

Формы или консоль?

[my_blood_is_blue]

ну да число)
Дельфи

[my_blood_is_blue]

консольная

[Serge_Bliznykov]

{получить максимальную длину серии в заданной строке матрицы A (10x10)}
function GetLengthMaxLongSeria(row : integer) : integer;
var i, k, max : integer;
begin
  k:=1; max:=1;
  for i := 2 to 10 do
    if A[i]=A[i-1] then inc(k)
      else
         begin
            if k>=max then  max:=k;
            k:=1;
         end;
   GetLengthMaxLongSeria := max;
end;

p.s. набросал примерно, код я не проверял...